Sheets("sheet1").Range("a1:a30").Copy
Sheets("Sheet2").Select
[a5].Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
sub test()
sheets("sheet1").range("A:A").copy sheets("sheet2").range("B1")
end sub