I can't glean from your explanation or code what you're trying to do. Are you
trying to transfer data from consecutive columns in Sheets("Sales Invoice")
starting with column "L" to consecutive rows in Sheets("Purchase") starting
with row 2 - i.e. transpose the data from vertical orientation (columns) to
horizontal orientation (rows) ???

Perhaps give us a simplified example describing how the data would appear at
the start and how it would change after each iteration of the loop for a few
iterations.

Regards,
Greg

"VBA_Learner" wrote:


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