Как транспонировать скопированные данные?

Question

Я хочу переместить данные, скопированные из «Лист1» в «лист2», из горизонтального в вертикальное.

Я могу скопировать данные. Как мне это перенести?

Sub sbCopyRangeToAnotherSheet()
    Sheets("Sheet1").Range("A1:G1").Copy Destination:=Sheets("Sheet2").Range("A1")
End Sub


Sub sbTranspose()
    Dim MyArray As Range
    Worksheets("Sheet2").Range("A1:E1").Formula = WorksheetFunction.Transpose(Range("A1:A40").Formula)
End Sub

Это данные:

Я хочу, чтобы это было так:

Answer 1

я исправил это с помощью

    Sub Transpose_ex1()
Range("H1:I10").Value = WorksheetFunction.Transpose(Range("A1:F3"))
End Sub