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