Autofilter using Array & loop

Hi Faridwahidi,
maybe something like this

Sub ertert()
Dim r As Range, adr As String, sCriteria As Variant, v, f$
sCriteria = Array("BC, HEA", "Deputy Hea", "Head, Bi"): f = "~"
With Range("A12:TB" & Cells(Rows.Count, "G").End(xlUp).Row)
    With .Columns(6)
        For Each v In sCriteria
            Set r = .Find(What:=v)
            If Not r Is Nothing Then
                adr = r.Address
                Do
                    If InStr(f, "~" & r.Value & "~") = 0 Then f = f & r.Value & "~"
                    Set r = .FindNext(r)
                Loop While r.Address <> adr
            End If
        Next v
    End With
        .AutoFilter
        .AutoFilter 2, "Business Banking"
        .AutoFilter 6, Split(Mid(f, 2), "~"), 7
End With
End Sub