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


--
Regards Ron de Bruin
http://www.rondebruin.nl


"saziz" wrote in message
...

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


--
saziz
------------------------------------------------------------------------
saziz's Profile: http://www.excelforum.com/member.php...fo&userid=6350
View this thread: http://www.excelforum.com/showthread...hreadid=471513