Dim I as Long, J as Long
Dim SubsidiariesToDisplay(7000) as String  ' Отображаемые филиалы
Dim SubsidiariesToExclude(7) as String ' Исключаемые филиалы
Dim CurrSubsidiary as String ' Текущий филиал
Dim Found as Boolean
' Формируем массив исключаемых филиалов
SubsidiariesToExclude=Array("Астраханский объединенный филиал", "Волгоградский объединенный филиал", _
        "Краснодарский объединенный филиал", "Новороссийское Отделение", _
        "Ростовский-на-Дону объединенный филиал", "Сочинский объединенный филиал", _
        "Ставропольский объединенный филиал")
' Формируем массив отображаемых филиалов
For I=2 to 6853
    CurrSubsidiary=Cells(i,10).Value
    Found=False
    For J=1 to 7
        If CurrSubsidiary=SubsidiariesToExclude(J) Then
            ' Запрещенный филиал
            Found=True
        End If
    Next J
   If Not Found Then 
      ' Филиал не был найден среди запрещенных - добавляем его в основной список
      SubsidiariesToDisplay(I)=CurrSubsidiary
   End If
Next I
' Ну, и в  завершение...
 ActiveSheet.Range("$A$2:$AN$6853").AutoFilter Field:=10, Criteria1:=SubsidiariesToDisplay, Operator:=xlFilterValues