Поиск нужной строки и добавление записи

[EducatedFool]

Но группировка к сожелению не соблюдается((
Вы посмотрте, пожалуйсто, на мой фал,который я изначально выложил и обратите внимание на группировку строк, как группировка у меня там.
и как у Вас.

Группировку сбил Ваш макрос (ибо я один раз его запустил)

Если бы Вы восстановили группировку вручную, и запустили бы мою версию кода, то заметили бы, что с группировкой проблем не возникает:

[Артур Иваныч]

ой опять невнимательность!
спасибо Вам большое!
но с счётчиком что-то не так....
понять не могу

[Артур Иваныч]

Например, мы добавляем в каждую тему по 4 этапа - счётчик нормально считает....
потом в "Название темы НИОКР - 2" добавляем 2-3 этапа
потом в "Название темы НИОКР - 3" добавляем 2-3 этапа - и тут счётчик "тупит"

[EducatedFool]

но с счётчиком что-то не так....

Можно преобразовывать формулы в значения - тогда проблем со счётчиками не возникает:

Private Sub cmndbOK_Click()
    On Error Resume Next: Dim ro As Range, cell As Range
    Set cell = [c:c].Find(Me.ComboBox1): Set ro = LastRow(cell).EntireRow
    ro.Offset(1).Resize(Me.TextBox3).Insert: ro.Resize(Me.TextBox3 + 1).FillDown
    ro.Offset(1).Resize(Me.TextBox3).ClearContents
    ro.Offset(1).Resize(Me.TextBox3, 1).FormulaLocal = _
    "=""" & cell.EntireRow.Cells(1) & """&строка()-" & cell.Row & "&""."""
    ro.Offset(1).Resize(Me.TextBox3, 1).Value = ro.Offset(1).Resize(Me.TextBox3, 1).Value
End Sub

Пример файла:

[Артур Иваныч]

СПАСИБО ОГРОМНОЕ!