Копировать строку, транспонировать и вставлять

Question

Мне нужно простое скручивание к общему коду vba, который копирует и вставляет столбцы/строки. То, что я пытаюсь сделать, это скопировать всю строку на листе 2, перенести и вставить их в столбец A , Sheet1. Первая строка в sheet1 имеет заголовки, поэтому я должен вставить их в А2, который распространяется на всю колонку

Sub transpose2() 

Sheets(2).Range("A1", Cells(Columns.Count, "A").End(xlRight)).Copy 
Sheets(1).Range("A2").PasteSpecial transpose:=True 
Range("A1").ClearOutline 

End Sub 

Это не похоже на работу. Может ли кто-нибудь помочь мне с этим? Спасибо!

Answer 1

Sub transpose2() 

    With Sheets(2) 
     .Range(.Range("A1"), .Cells(1, .Columns.Count).End(xlToLeft)).Copy 
    End With 
    Sheets(1).Range("A2").PasteSpecial transpose:=True 
    Range("A1").ClearOutline 'which sheet? 

End Sub