Как отфильтровать уже отфильтрованные значения таблице Excel

Workbooks("file.xls").Worksheets("Sheet1").UsedRange.AutoFilter Field:=1, Criteria1:=filter, Operator:=xlFilterValues

.AutoFilter.Range.Сolumns(2).specialcells(xlcelltypevisible)

.AutoFilter.Range.Columns(N).SpecialCells(xlCellTypeVisible)

Dim filter_data As Scripting.Dictionary
Set filter_data = New Scripting.Dictionary

Dim filter_data
Set filter_data = New Scripting.Dictionary

Dim filter_data As New Scripting.Dictionary

Dim filter_data As Object
Set filter_data = CreateObject("Scripting.Dictionary")

Dim filter_data As Object

Dim filter_data

  ' задаем диапазон отфильтрованных ячеек (которые отображены) в колонке N автофильтра
Set filter_range = .AutoFilter.Range.Columns(N).SpecialCells(xlCellTypeVisible)
Set filter_data = CreateObject("Scripting.Dictionary") ' создаем объект словарь (ассоциативный массив)
 
On Error Resume Next ' пропуск ошибки при добавлении значения присутствующего в словаре
For Each cel In filter_range ' перебор всех ячеек в диапазоне
  ' добавление элемента в словарь, ключ и значение которого равны значению текущей ячейки
  filter_data.Add cel.Value, cel.Value
Next
On Error GoTo 0 ' выключение пропуска ошибок
  
filter_data.Remove filter_range.Value ' удаляем заголовок автофильтра из словаря т.к. он нам не нужен

.AutoFilter Field:=N, Criteria1:=filter_data.Items,  Operator:=xlFilterValues

Set r = .AutoFilter.Range.Сolumns(1).specialcells(xlcelltypevisible) 
for each сel in r
 ' работаю с cel
next

Set r = .AutoFilter.Range.Сolumns(1).SpecialCells(xlCellTypeVisible)
for each сel in r
 ' работаю с cel
next