Try the following code in a standard module assigned to a button:-
Dim Confirm As String
Confirm = MsgBox("The selected row will be copied to Sheet2 and deleted from Sheet1.", vbOKCancel, "Copy Entire Row")
If Confirm = vbCancel Then Exit Sub
Selection.Copy Sheet2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
MsgBox "Data transfer complete!", vbExclamation
Select the row of data that you wish to transfer to Sheet2 then click on the button and that row will be transferred to Sheet2 and deleted from Sheet1.
I hope that this helps.