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.