Hi,

Below are the code u can have a try.
Sheet2 will work as a source file for u to copy.
Sheet1 is the destination.

This code will copy data from column A, range A1 till A10 to sheet 1.


Sub Copy()

Worksheets("Sheet2").Range("A1:A10").Copy
ActiveSheet.Paste
Destination:=Worksheets("Sheet1").Range("A1:A10")
Application.ScreenUpdating = True

End Sub


Regards,
Sharon


--
sharon2006
------------------------------------------------------------------------
sharon2006's Profile: http://www.excelforum.com/member.php...o&userid=30173
View this thread: http://www.excelforum.com/showthread...hreadid=498589