something like

myrow = Sheets("Recap Report").Range("A65536").end(xlup).row

assuming column A will contain the highest row

then in your code

Selection.Copy
Range(cells(10,1),cells(myrow,1).select
ActiveSheet.Past

--
duan

-----------------------------------------------------------------------
duane's Profile: http://www.excelforum.com/member.php...fo&userid=1162
View this thread: http://www.excelforum.com/showthread.php?threadid=52741