One way:

   Public Sub DeleteNonCentreMemberRows()
       Dim rCell As Range
       Dim rDelete As Range
       
       For Each rCell In Range("A1:A" & _
               Range("A" & Rows.Count).End(xlUp).Row)
           With rCell
               If Not (LCase(.Text) = "centre" Or _
                       LCase(.Text) = "member") Then
                   If rDelete Is Nothing Then
                       Set rDelete = .Cells
                   Else
                       Set rDelete = Union(rDelete, .Cells)
                   End If
               End If
           End With
       Next rCell
       If Not rDelete Is Nothing Then rDelete.EntireRow.Delete
   End Sub

Try this idea
Sub Deleteallrowsbut()
With Range("A3:A12")
.AutoFilter
.AutoFilter Field:=1, Criteria1:="<>b", _
 Operator:=xlAnd, Criteria2:="<>other"
.EntireRow.Delete
End With
End Sub