ошибка при фильтрации

[SAS888]

Почему Вы упорно не хотите использовать замечательную возможность метода AdvancedFilter помещать отфильтрованные данные сразу туда, куда нужно? Если, все-таки, требуется дополнительная обработка полученных данных, то лучше обрабатывать существенно меньший объем данных (после фильтра). Пример макроса:

Private Sub Main()
    Dim i As Long: Application.ScreenUpdating = False: Sheets(2).Activate: Cells.Delete
    Sheets(1).[B1:J1066].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[B1], Unique:=True
    Sheets(1).[B:J].Copy: [B:B].PasteSpecial Paste:=xlPasteColumnWidths
    For i = ActiveSheet.UsedRange.Rows.Count To 2 Step -1
        If Cells(i, 2) = "" Then Rows(i).Delete
    Next: [A1].Select
End Sub

Пример использования во вложении.

[Screame]

спасибо SAS888, этот код работает быстрее, учитывая то что количество строк можеть быть увеличено до 2000, спасибо всем за помощь!!!