Change


Code
-------------------

Worksheets("Form").Range("A10:A140").Copy
Worksheets("data").Cells(NewRow, 1).PasteSpecial xlPasteValue
-------------------

--
jindo
-----------------------------------------------------------------------
jindon's Profile: http://www.excelforum.com/member.php...fo&userid=1313
View this thread: http://www.excelforum.com/showthread.php?threadid=55130