https://trumpexcel.com/vba-autofilter/
With ws .AutoFilterMode = False With .Range("A1") .AutoFilter field:=5, Criteria1:="B***-***" ' 5 = Column E End With .AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete .AutoFilterMode = False End With
Note, you can also delete all BUT Match via :
Criteria1:="<>B***-***" ' <>