Filtering Out Desired Criteria and Deleting All Others

[FrenchCelt]

Hello,

I'm in the middle of coding a macro that will filter for various criteria in order to delete them from a report that has a lot of extraneous data. For example, take the code below:

ActiveSheet.Range("A4:O50000").AutoFilter Field:=3, Criteria1:="PK BAG"
ActiveSheet.Range("A4:O50000").AutoFilter Field:=4, Criteria1:="SKIP"
On Error Resume Next
Range("A5:A50000").SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.ShowAllData
    
ActiveSheet.Range("A4:O50000").AutoFilter Field:=3, Criteria1:="PK BAG"
ActiveSheet.Range("A4:O50000").AutoFilter Field:=4, Criteria1:="LQTY"
On Error Resume Next
Range("A5:A50000").SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.ShowAllData

The only criteria I want to keep in Field 4 for category PK BAG is called GRABS, so I coded to have SKIP and LQTY deleted. What I would like to do for the sake of shortening the time to code this for a few dozen categories is to declare the criterion per category I want to keep and delete all others instead of listing one at a time all the criteria that should be deleted (e.g. if it's not GRABS then delete).

Any help would be greatly appreciated.

 

[Fluff]

How about

Sub FrenchCelt()
With ActiveSheet
   .Range("A4:O50000").AutoFilter Field:=3, Criteria1:="PK BAG"
   .Range("A4:O50000").AutoFilter Field:=4, Criteria1:="<>GRABS"
   .AutoFilter.Range.Offset(1).EntireRow.Delete
   .ShowAllData
End With
End Sub

 

[FrenchCelt]

Worked perfectly. Thank you so much!

 

[Fluff]

You're welcome & thanks for the feedback.