code required to copy and paste rows matching a criteria.

Hi Duguid1,

You could give this code a try. It finds out the last cell in Sheet 1, the last cell in Sheet 4, and copies the relevant row (if Cell AH1 contains "1") from Sheet 1 to the last row in Sheet 4

Sub Copy_From_Sheet1_To_Sheet4()
Dim lastRowSource, lastRowDest As Long
Dim R As Long, TotRows As Long
lastRowSource = Sheets("Sheet1").Range("A65536").End(xlUp).Row
TotRows = Range("A" & Rows.Count).End(xlUp).Row
    For R = TotRows To 1 Step -1
lastRowDest = Sheets("Sheet4").Range("A65536").End(xlUp).Row
        If Sheets("Sheet1").Cells(R, "AH").Value = "1" Then
            With Rows(R)
                .Copy Destination:=Sheets("Sheet4").Range("A" & lastRowDest + 1)
                .Delete
            End With
        End If
    Next R
End Sub

Hi kyrgyzstanart,

You're right enough. It was a typo on my part. Thanks for that

Filter the data then Cut & Paste