Удаление добавление защищенных строк с условием

[normres]

Сообщение от IgorGO

извините, писал просто тут, не проверяя...
там опечатка)))
необходимо

cells(r-1,1).copy

заменить на

Rows(r - 1).Copy

и будет Вам счастье!
хотя нет... для счастья еще в конце надо добавить

cells(r,1) = cells(r-1,1)+1

Вы в смысле нумерации строк
cells(r,1) = cells(r-1,1)+1
Тогда если строка или строки будут удалены в хаотичном порядке, нумерация по любому нарушится.
IgorGO тогда для счастья надо чтобы при удалении формировались числовые значения первого столбца в порядковой нумерации.