Hau,

Sheets("Sheet1").Range("A1:C1").Copy
Sheets("Sheet2").Range("A1").PasteSpecial _
Paste:=xlPasteAll, Transpose:=True
Application.CutCopyMode = False

HTH,
Bernie
MS Excel MVP

"Hau" wrote in message
...
Hi,

What is the VBA code if I need to copy verticaly a
transpose range of data which sheet1"A1:c1" to
sheet2"A1:A3".

Regards