Настройка Intellisense Visual Studio

Последняя строка в столбце, содержащем данные, определяется классической строкой:

Dim lastrownum as integer
lastrownum = cells(rows.count,icol).end(xlUp).Row

(где icol имеет значение, которое оно имеет в вашем коде). Тогда вы можете очень просто «Зациклить, а не iRow> lastrownum».

Однако вы столкнетесь с проблемой с другим вашим кодом, который вставляет пустые строки и, таким образом, перемещает «последнюю строку» вниз. Таким образом, вы должны проверить последний ряд каждого цикла. На самом деле это более простой код, просто используется на несколько мс больше времени на цикл. Вам не нужно ничего делать, кроме как изменить строку LOOP на:

LOOP UNTIL irow>cells(rows.count,icol).end(xlUp).Row