Delete Rows if a cell does not equal "Finished" or "Complete"

Hi Justair,

try the code below - on your sample it worked fine.

Sub test()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False

On Error GoTo earlyexit

    If Not Range("A1").Value = "" Then Rows("1:1").Insert
    Cells.AutoFilter
    ActiveSheet.Range(Cells(1, 1), Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column)).AutoFilter Field:=6, Criteria1:="<>Complete", Operator:=xlAnd, Criteria2:="<>Finished"
    Range("A1", ActiveCell.SpecialCells(xlLastCell)).EntireRow.Delete

earlyexit:
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub

Please click the * below if this helps