Добрый день!
1. в строках оглавления(строка 1, 3, 6) вписываешь в ячейки формулы, которые указывают на первые строки данных
например в ячейку A1 =СТРОКА(A24), в ячейку A3 =СТРОКА(A40), в ячейку A6 =СТРОКА(A90)
2. Отмечаешь ячейки A1, A3, A6 и присваешь выбранному диапазону имя content
3. Запускаешь процедуру и в ячейках B1, B3, B6 получаешь номера страниц.
4. Вставляешь строки в данные, снова запускаешь процедуру, обновляешь номера страниц.

Sub test111()
Dim sAr As Range, HP As Long, RowHP As Long, HPCount As Long
ActiveSheet.DisplayPageBreaks = True: ActiveWindow.View = xlPageBreakPreview
HPCount = ActiveSheet.HPageBreaks.Count
HP = 1: RowHP = 66000
If HPCount > 0 Then
RowHP = ActiveSheet.HPageBreaks(HP).Location.Row 'строка с разделителем страницы
End If
For Each sAr In [content]
Do While sAr.Value >= RowHP
HP = HP + 1
If HP <= HPCount Then
RowHP = ActiveSheet.HPageBreaks(HP).Location.Row 'строка с разделителем страницы
Else
RowHP = 66000
End If
Loop
sAr.Offset(, 1) = HP
Next
ActiveWindow.View = xlNormalView
End Sub
С уважением, Сергей Густокашин. Тольятти, Комсофт. ICQ 75307217

Это, например, если на строку оглавления уйдет несколько строк Excel'я :)

Идея состоит в том, что в формуле вида =СТРОКА(A40) при вставке строк выше ячейки А40, будет меняться ссылка, например при вставке двух строк будет формула =СТРОКА(A42).
А вообще, как определить номера строк, с которых начинается очередной раздел, дело вкуса.
Именование - хорошая идея, вроде content1, content2, потом обращаться в цикле Range("content" & I).