Hi,
To cut and paste the current row to A4:
Private Sub MoveRow_Click()
ActiveCell.EntireRow.Cut Worksheets("Tracking").Rows(5)
ActiveCell.EntireRow.Delete
End Sub

There is no need of activating the second sheet .
Now to paste to the next available row in stead of A5 (assuming column A is
used to determine which is the next available row), still feasuble in a
single statement:

Private Sub MoveRow_Click()
ActiveCell.EntireRow.Cut
Worksheets("Tracking").Range("A65536").End(xlUp).O ffset(1,0)
ActiveCell.EntireRow.Delete
End Sub

I hope this helps,
Sebastienm