Сравнение двух диапазонов и удаление совпадений ПОСТРОЧНО (доработка)

[pringls]

Здравствуйте уважаемые форумчане, подскажите ОПТИМИЗАЦИЮ Макроса, для увеличения скорости его работы. Макрос, который бы сравнивал два диапазона данных (расположенных на соседних листах) и удалял строки из первого диапазона (листа) при выявлении совпадений со вторым диапазоном (листом) С УЧЕТОМ ТОГО, что кол-во ячеек ВСЕГДА РАЗНОЕ, как в первом диапазоне, так и во втором.
Вот примерно то, что нужно, только тут указывается ЖЕСТКИЙ ДИАПАЗОН.

Можете ли вы подсказать, как сделать «плавающий», ну например до первой пустой ячейки, или сначала пересчитать кол-во строк (ячеек) и выявить таким способом…..
А то в таблицах иногда бывает до 5 тыс. строк, а когда данными заполнено 1 тыс, то соответственно макрос работает в 5 раз дольше.


Sub DelDups_TwoLists()
Dim iListCount As Integer
Dim iCtr As Integer

' Для ускорения работы макроса обновление экрана отключается.
Application.ScreenUpdating = False

' Получение числа записей для поиска (список, из которого будут выполняться удаления).
iListCount = Sheets("НОВЫЙ").Range("A2:A300").Rows.Count

' Цикл по "главному" списку.
For Each x In Sheets("СТАРЫЙ").Range("B2:B300")
' Цикл по всем записям второго списка.
For iCtr = 1 To iListCount
' Сравнение следующей записи.
' Для выбора другого столбца замените 1 на номер столбца.
If x.Value = Sheets("НОВЫЙ").Cells(iCtr, 1).Value Then
' Если совпало, удалить строку.
Selection.EntireRow.Delete
' Увеличение счетчика строк на 1 для учета удаленной строки.
iCtr = iCtr + 1
End If
Next iCtr
Next
Application.ScreenUpdating = True

End Sub

[Hugo121]

На планете ответил.

[pringls]

СПАСИБО БОЛЬШОЕ!!!