как увеличить индекс в цикле FOR

[elvira]

как увеличить индекс в цикле FOR
что я имею в веду:
мы определили кол-во заполненных строк на рабочем листе
iLastRow = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row

Код: Выделить всё

For index =1 to iLastRow
.
.
.
       Rows(index).Insert Shift:=xlDown   'я добавляю строку
.
.
Next index

если я добавила в цикле строку, значит и увеличилось кол-во строк, как это грамотно записать в цикл

[Dim_ok]

Rows(index).Insert Shift:=xlDown
iLastRow=iLastRow+1

[elvira]

))
хорошая идея
проблемма что строка

Next index
уже зафиксировала начальный результат iRowLast

[Serge_Bliznykov]

не проверял, но думаю, что цикл while Вам поможет...
While index <= iLastRow
...
Wend

Если я ошибаюсь, то тогда делайте бесконечный цикл и в нём
проверяйте условие и делайте выход из цикла... хотя так и некрасиво.. ;-(

[elvira]

да, наверное вы правы, не проверяла, но выглядит логично
спасибо