How to filter excluding certain words and delete the rows?

[alphabo1201]

Hello Excel Gurus,

I am trying to filter exclude and deleting any rows but for some reason it is deleting all of the rows. Could someone help me?

the filter portion of the VBA works but its the deleting rows that is not working.... Thank you!!

Range("A1").AutoFilter Field:=13, Criteria1:="<>EXPENSES", Operator:=xlFilterValues
Application.DisplayAlerts = False
ActiveSheet.AutoFilter.Range.Offset(1, 0).Rows.SpecialCells(xlCellTypeVisible).Delete (xlShiftUp)
Application.DisplayAlerts = True
ActiveSheet.ShowAllData

 

[alphabo1201]

Also if the <> criteria doesnt exist it would delete all the rows.

 

[Fluff]

How about

   With ActiveSheet
      .Range("A1:M1").AutoFilter 13, "<>Expenses"
      .AutoFilter.Range.Offset(1).EntireRow.Delete
      .AutoFilterMode = False
   End With

 

[alphabo1201]

How about

   With ActiveSheet
      .Range("A1:M1").AutoFilter 13, "<>Expenses"
      .AutoFilter.Range.Offset(1).EntireRow.Delete
      .AutoFilterMode = False
   End With

Thank you very much!!! appreciate the insight. I was able to fix the issue.!

 

[Fluff]

Glad to help & thanks for the feedback.