Hi,

Any help would be greatly appreciated as I am just getting grips with
how all of this works.

I have pieced together most of what I need through browsing other
threads and Ron De Bruin help but I just can't get the last.

I need the following code to work for instances where the rows increase
by +1. So next time it loops through it picks up row(3:3) etc. Nothing
I have tried so far works.

Do
Dim White As Range
Dim Source As Range
Dim Destination As Range

Set White = (Sheets("Sales Invoice").Columns("L:L"))
Set Source = (Sheets("Purchase").rows("2:2"))
Source.Select

Source.Copy ActiveCell.EntireRow.Offset(1, 0)

Loop Until IsEmpty(White)

Thanks.


--
VBA_Learner
------------------------------------------------------------------------
VBA_Learner's Profile: http://www.excelforum.com/member.php...o&userid=25138
View this thread: http://www.excelforum.com/showthread...hreadid=386340