EXCEL VBA Transposing data: Run Time Error 1004 Paste Special Method of Range Class Failed

Question

Я нашел этот код в Интернете, чтобы перенести мои данные, которые были загружены, в первый столбец. Каждый раз, когда я запускаю этот код, я получаю «Ошибка выполнения '1004'». Не удалось вставить специальный метод класса Range. Кажется, я не могу понять, в чем проблема. Я правильно выделил все данные и убедился, что транспонированные ячейки пусты.

    Sub Transpose_N_Rows()

    xRow = Selection.Rows.Count
    xCol = Selection.Column

    nextRow = 1

    stepValue = InputBox("How many rows should be grouped together?")


    For i = 1 To xRow Step stepValue


        Cells(i, xCol).Resize(stepValue).Copy


        Cells(1, xCol).Offset(nextRow, 3).PasteSpecial Paste:=xlPasteAll, Transpose:=True

        nextRow = nextRow + 1

    Next

    End Sub