Maybe:

Sub mustang_1()

Range("A4:K4").Copy Sheets("Past").Range("A" & Rows.Count).End(3)(2)
Range("A4:K4").Delete
End Sub