Sub TransposeRange()
With ActiveSheet
.Range("A1:Z1").Copy
.Range("A2").PasteSpecial Transpose:=True
End With
Application.CutCopyMode = False
End Sub

--
HTH,
Dianne

In ,
Randy Lefferts typed:
I have data in a range A1:Z1. I want to copy this data to
a column, A2:A27. Suggestions or help is most
appreciated! Thank you for your time.

Randy