VBA скопируйте столбец с листа 1 и перенесите вставку в строку на листе 2

Question

Я пытаюсь написать макрос для копирования данных из столбца C (в последнюю полную строку) и транспонировать эти данные в строку 1 на листе 2. Я не могу заставить свой код работать. Я получаю ошибку времени выполнения 1004 для строки кода Paste.

Option Explicit
Sub ColumnRow()

    Dim lRow As Long

        lRow = Cells(Rows.Count, 1).End(xlUp).Row
        Worksheets("Sheet1").Range("C1" & lRow).Copy
        Worksheets("Sheet2").Range("A1").PasteSpecial Transpose:=True

End Sub

Answer 1

Пара вещей.

(1) Укажите лист для lRow

(2) Синтаксис для диапазона Range("C1" & lRow) отключен - см. Ниже

Sub ColumnRow()

Dim lRow As Long

lRow = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row 'add sheet ref
Worksheets("Sheet1").Range("C1:C" & lRow).Copy 'specify full range
Worksheets("Sheet2").Range("A1").PasteSpecial Transpose:=True

End Sub