Массивы (Array)

[Казанский]

Да и с автофильтром проблем нет

Sub Макрос2()
Dim myArray
myArray = WorksheetFunction.Transpose(Sheets("массив условий").Cells(1, 1).CurrentRegion)
With Sheets("данные для сортировки")
  .AutoFilterMode = False
  .Cells(1, 2).AutoFilter Field:=1, Criteria1:=myArray, Operator:=xlFilterValues
End With
End Sub

[economic_man]

Спасибо. Совсем забыл про использование спец фильтров, заработался.