help with range copy

S

saziz

HI all,

This is what I am trying to do, look in range Column A in active sheet,
copy upto whatever range is filled down and paste in sheet 2. the code
below is copying only the last cell and pasting in sheet 2.


Range("A65536").End(xlUp).Copy _
Worksheets("sheet2").Range("a65536").End(xlUp)

Appreciate your help.
Thanks
Syed
 
R

Ron de Bruin

Hi Syed

Try this

Sub test()
Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Copy _
Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp)(2)
End Sub
 
S

saziz

Thank you ron, it worked perfectly.
Is there a book I can buy to learn all these nitty gritty details o
the code.
Best regards
Sye
 
Top