Hi,
This code will copy and paste the data to the blank after the last entry in column A sheet 2
Sub Button1_Click()
Dim r As Range
Set r = Range("A4:C4")
   r.Copy Destination:=Worksheets("Sheet2").Range("A65356").End(xlUp).Offset(1, 0)
   r.ClearContents
End Sub
Here's a sample
Send to sheet 2.xls