Delete row based on date and cell value

[mancubus]

as an alternative, i regularly use autofilter method with large data sets.

Sub vbax_54682_Del_Rows_Based_on_Two_Cols()
    With Worksheets("MySheet") 'change MySheet to suit
        .Cells(1).AutoFilter Field:=1, Criteria1:="<=" & (Date - 30)
        .Cells(1).AutoFilter Field:=3, Criteria1:="=NO"
        .UsedRange.Columns(1).Offset(1).SpecialCells(12).EntireRow.Delete
        .AutoFilterMode = False
    End With
End Sub