Here's a code that would work for you,

Remember that you only have 256 columns though you can ony do this fo
64 rows


Code
-------------------
Sub CutPasteToRowA()
Range("A2").Select
Do Until ActiveCell = ""
ActiveCell.Range("A1:D1").Cut Destination:=Range("A1").End(xlToRight).Offset(0, 1).Range("A1")
ActiveCell.Offset(1, 0).Select
Loop
Range("A1").Select
End Sub

-------------------

--
Paul Morga
-----------------------------------------------------------------------
Paul Morgan's Profile: http://www.officehelp.in/member.php?userid=519
View this thread: http://www.officehelp.in/showthread.php?t=136929

Posted from - http://www.officehelp.i