Autofilter using Array & loop

Hi,

can anyone help me so that it works.

Dim rng As Range
Dim i, lng As Long
Dim sCriteria As Variant

            i = Range("G" & Rows.Count).End(xlUp).Row
      Set rng = Range("A12:TB" & i)
    sCriteria = Array("BC, HEA*", "Deputy Hea*", "Head, Bi*")
    
    
    For lng = LBound(sCriteria) To UBound(sCriteria)
       With rng
            .AutoFilter
            .AutoFilter Field:=2, Criteria1:="Business Banking"
            .AutoFilter Field:=6, Criteria1:=sCriteria(lng)
        End With
    Next lng