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