某列转成行，粘贴解决方法

某列转成行，粘贴
源数据：sheet1[A1:A5]，复制到：sheet2[B1:F1]
要求行列都用数值标示（因为行列数可能会存在变量中）。
自己试了一下，无头绪：
sheet1.Range(sheet1.Cells(1, 1), sheet1.Cells(5, 1)).Copy sheet2.Range(sheet2.Cells(1, 2), sheetRaw.Cells(1, 6))
注，尽量别用循环。
[解决办法]
不要使用copy，使用一个一个单元格赋值，你想赋值到哪都可以，你问题就解决了


[解决办法]
PasteSpecial中就有行列转置。

Sub Ps()
    Range("A1:A5").Select
    Selection.Copy
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub