VBA - remove rows that do not contain 1 of 2 values

[carab]

This should be pretty simple...

For all rows in the worksheet (excluding the header row), I want to delete all rows that do not contain either "B.2" or "C.2" in column H.

I've tried messing around with an autofilter array but I just don't know enough to make it work.

Thanks in advance!

 

[Damon Ostrander]

Hi carab,

Here's a macro that does this:

Sub RemoveRows()
   'Removes all rows not having B.2 or C.2 in column H
   Dim iRow    As Long
   
   With ActiveSheet
   
      For iRow = .UsedRange.Rows.Count To 1 Step -1
         If .Cells(iRow, "H") Like "[BC].2" Then
            Application.StatusBar = "Row " & iRow
         Else
            .Rows(iRow).Delete
            Application.StatusBar = "Row " & iRow & " deleted"
         End If
      Next iRow
      
   End With
      
   Beep  'signal that row removal complete
   Application.StatusBar = False
      
End Sub

Damon