No doubt you've already experimented with macro recorder, discovering
the standard transpose command wont wrap within a range. So we need
handle the transposition manually.
Presuming your data begins in cell A2:
Sub test()
For Each c In Range("A2", "A" & Range("A65536").End(xlUp).Row)
Row = Row + 1
For col = 0 To 9
Cells(Row, 13 + col).Value = c.Value
Next col
Next c
End Sub
Note however this method will take awhile if you have a lot of data -
in which case I suggest considering John Walkenbach's array method.
http://www.dailydoseofexcel.com/arch...ange-using-vba