excelde rowları kolon - kolonları row yapmak

bundan önce bir makro kaydedip yapmıştım.
başka bir yolu var mı, yoksa VFP içinden komutla mı yapayım ?
aşağıdaki resimdeki 1. tabloyu 2.tablo haline getirmek istiyorum.

peşinen teşekkürler, iyi pazarlar, sevgiler

makro kaydını da yazayım:
Sub yataya()
'
' yataya Makro
' Makro Konuk tarafından 25.04.2010 tarihinde kaydedildi.
'
' Klavye Kısayolu: Ctrl+i
'
For xi = 1 To 100
    Selection.Cut
    Selection.End(xlUp).Select
    Selection.End(xlToRight).Select
    ActiveCell.Offset(0, 1).Select
    ActiveSheet.Paste
    Range("A6").Select
    Selection.End(xlDown).Select
Next xi
End Sub