I have tried almost every thing but can not get this macro to paste values.
please help. Where can I read more about methods, and properties.

Thank you

Sub Button2_click()
Dim NewRow As Integer
NewRow = Worksheets("Form").Range("O1").Value + 1
If Worksheets("Form").Range("O2").Value < 0 Then
MsgBox "There are errors. No data has been added!", vbOKOnly, "MeadInkent"
Exit Sub
End If
Worksheets("form").Range("A10:A40").Copy Worksheets("data").Cells(NewRow, 1)

End Sub

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

Thanks a lot I tried that but can not understand why it didn't work, the
error was expected end of statement. But now it works.

"jindon" wrote:


Change


Code:
--------------------

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


--
jindon
------------------------------------------------------------------------
jindon's Profile: http://www.excelforum.com/member.php...o&userid=13135
View this thread: http://www.excelforum.com/showthread...hreadid=551302