Есть модуль, который удаляет строки из таблицы, если во втором столбце есть значение "3" (см. ниже).
На небольшом количестве строк работает правильно, но если в таблице 50 000 строк почему-то удаляет все строки, а не с "3".
Почему? Как это можно исправить?

Модуль с удалением в цикле каждой строки на большом количестве строк работает долго, поэтому выбран этот способ.


Sub Test()
Selection.AutoFilter Field:=2, Criteria1:="3"
Range("B2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
End Sub

The_Prist,
пока не получилось,
ошибка:
невозможно получить свойство SpecialCells класса Range
описание ошибки и попытка исправления - во вложении.

The_Prist,

Благодарю Вас, спасибо за помощь, получилось после выполнения рекомендаций по сортировке.