Need an IF/THEN cut and paste marco please...

Thank you so much for that code and for your idea (I knew I got it from somewhere!) but unfortunately it isnt working properly. I did have another thought. After I run the original marco to copy and paste, would it be possible to create a separate marco that is very similar but that will CUT and then paste the items onto a 3rd tab? I used the following marco but I get an error message stating multiple items cannot be used in this macro.

Sub Copier()
rowz1 = Sheets(1).Range("B1").Offset(Rows.Count - 1, 0).End(xlUp).Row
rowz2 = Sheets(3).Range("B1").Offset(Rows.Count - 1, 0).End(xlUp).Row

With Sheets(1)
    .Select
    .AutoFilterMode = False
    .Range("A1").AutoFilter Field:=1, Criteria1:="<>"
    .Range("A2:R" & rowz1).SpecialCells(xlCellTypeVisible).Cut
End With

With Sheets(3)
    .Select
    .Cells(rowz2 + 1, 1).Select
    .Paste
End With

End Sub