You have so many extraneous and non-productive 'select" lines I'm not sure but
maybe this will work,

Sub Test()

Sheets("Action Items").Select
ActiveSheet.Range(ActiveCell, Cells(ActiveCell.Row, _
Columns.Count).End(xlToLeft)).Cut _
Destination:=Sheets("Closed Action Items") _
.Range("A1").End(xlDown).Offset(1, 0)

End Sub

On Mon, 4 Feb 2008 12:14:02 -0800, JFREE223
wrote:

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,