Устойчивая нумерация страниц с различными размерами ячеек

[Fariton]

Есть макрос с возможностью редактирования номера страницы. В строке, где номер не нужен, можно просто удалить его или всю строку. При этом сохраняется нумерация. Проблема заключается в том, что макрос неправильно нумерует следующую строку после объедененной ячейки (в примере это видно). Прошу помочь усовершенствовать макрос чтобы он воспринимал объедененные ячеки как одну и соответственно нумеровал следующую по порядку строку.

Очень важно сохранить функцию непрерывной нумерации и при удалении ненужных строк!!!
Пример прилагается.
Вложил образец целиком страницы, возможно изначально можно поправить процедуру нумерации для возможности удаления строк и соответственно изменять порядковый номер строк. Спасибо

[Aleksandr H.]

Макрос не к етому листу. Не нашел где же редактируется номер страницы. В которой строке коде?

[Fariton]

нижний макрос, удивительно, но какое-то время работал, нумеровал как надо, а сейчас походу тоже короновирус схватил и ушел на больничный. Вообще возможно создать такой макрос удовлетворяющий условиям

[Aleksandr H.]

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

Вообще возможно создать такой макрос удовлетворяющий условиям

Ну раз Вы утверждаете, значит возможно.

Вы с условием не запутались, именно "нумерация страниц" интересует, а не "непрерывная нумерация строк"?

[Fariton]

Нужно нумеровать строки. В дальнейшем это протокол к техническому отчёту. В данном протоколе часто надо редактировать строки. Некоторые нужно удалять, а нумерация должна изменяться, т.е номер удалённой строки переходит на другую, строкой ниже
1-а
2-б
3-в
Удаляем 2 строку, получаем
1-а
2-в
Теперь думаю все понятно

[Aleksandr H.]

Макрос в общих чертах

Private Sub NumerateLines()
    Dim i As Integer
    Dim iLastRow As Integer
    Dim counter As Integer
    i = 30 ' нумерация начинается со строки
    iLastRow = 70 ' к этой строке нумеровать
    counter = 1
    Do While i <= iLastRow
        Cells(i, "B") = counter ' "нумерация"
        If Cells(i, "B").MergeCells Then
            i = i + Cells(i, "B").MergeArea.Rows.Count
        Else
            i = i + 1
        End If
        counter = counter + 1
    Loop
End Sub

[Fariton]

Вставляю вместо своего что-то ничего не происходит (((Я Ваш макрос вставил вместо своего. Я правильно сделал?

[Fariton]

работает но не совсем так как хочется, если я убираю строку, он не пересчитывает ((( это чуть не самое главное

[Fariton]

А кнопку для нумерации обязательно делать? Можно ее совместить с имеющейся? Этот протокол бывает очень большой, а их семь штук, с другими проще, там все одинаковые ячейки. Спасибо все равно Вам огромное!

[Fariton]

Именно необходима возможность из ячейки В увдалять номер, т.к в ячейку С идет название следюющего электрического щита. И ли поставить условия не нумеровать строку где название (как вариант)