see possible answer to your later posting of this question.
--
Regards,
Tom Ogilvy


"Nicole Seibert" wrote:

Hi,
I thought that this would work:

'*** NOTICE: This does not include the header row as we are adding on to the
bottom of
'what is already on BA Approved
Dim lastcell1 As Integer
lastcell1 = Range("A1").End(xlDown).Count
Range("A3:R(lastcell1)").Select
Range("R(lastcell1)").Activate
Selection.Copy
Sheets("Estimated - BA Approved").Select
'
'Find the first cell in column A WITHOUT Data and start paste in this cell
Range("A1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste

It doesn't. First, can you tell me why? And two, is there simplier code
for selecting only rows with data, but not the two row header row?

Thanks,
Nicole