Im using the following to transfer data from a temporary sheet to the main spreadsheet. Im using the following Code. Currently I use a fixed range to cut but as my list of data may vary ( and there may be empty cells) I would like the range to be A1:'Last Row with Data in it

thanks XLD, just tried that but it only copied down to the first gap.
There are goingto be gaps in the data.
I could just make the range big enough to ensure it would pick up even my largest bit of Data. ( I roughly know the largest possible size I would need)
I was just thinking if there is a proper way to do it without too much hassle....

xld

09-30-2008, 04:58 AM

Sub CopyPaste()
Dim sh1 As Worksheet
Dim LastRow As Long
Dim NextRow As Long

GTO, thanks for that. Its always good to see different ways of seeing things.
XLD, one small problem, Its not copying over the last row of data. Column A in the the last row of data to be transferred over is empty, the data in the last row start from about column E.

xld

09-30-2008, 07:03 AM

Sub CopyPaste()
Dim sh1 As Worksheet
Dim LastRow As Long
Dim NextRow As Long