I'm trying to move completed action items from one worksheet to another via a
command button on the excel page. The macro I have is...

Sub MoveCompletedTasks()

ActiveCell.Offset(0, 0).Rows("1:1").EntireRow.Select
Sheets("Closed Action Items").Select
ActiveCell.Rows("1:1").EntireRow.Select
Rows("4:4").Select
Sheets("Action Items").Select
Selection.Cut
Sheets("Closed Action Items").Select
Range("A1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Action Items").Select
ActiveCell.Offset(0, 0).Rows("1:1").EntireRow.Select
Selection.EntireRow.Delete


End Sub

I get "Error 400" after
Range("A1").End(xlDown).Offset(1, 0).Select

Any suggestions to move a completed task to another page is appreciated.
I'd like to avoid filtering...I'm trying to make it as 'manual' free as
possible.

Thanks,