VBA - Copy and paste rows if conditions have been met

[Evie76]

I need to copy row data from one sheet to another if yes is in column BE, No match in coloums BL, BM and BN and if Column BO is blank

Can any one please help, i have tried the below code but its not working

Private Sub filter()

For i = 2 To lastrow

If Worksheets("Data Only").Cells(i, 57).Value = "Yes" Then
    If Worksheets("Data Only").Cells(i, 64).Value = "No Match" Then
        If Worksheets("Data Only").Cells(i, 65).Value = "No Match" Then
            If Worksheets("Data Only").Cells(i, 66).Value = "No Match" Then
                If Worksheets("Data Only").Cells(i, 67).Value = "" Then
            

            Worksheets("Data Only").Rows(i).Copy
            Worksheets("Filter").Activate
            b = Worksheets("Filter").Cells(Rows.Count, 1).End(xlUp).Row
            Worksheets("Filter").Cells(b + 1, 1).Select
            ActiveSheet.Paste
                
                End If
            End If
        End If
    End If
    End If
    Next

Application.CutCopyMode = False
Worksheets("Data Only").Activate
Worksheets("Data Only").Cells(1, 1).Select
MsgBox ("Completed")
            
End Sub

 

[Joe4]

If you really are using Excel 365, this VBA is totally unnecessary.
You can do this with the new Excel FILTER function.

Take a look here, especially the part that is entitled "FILTER used to return multiple criteria": FILTER function - Microsoft Support