Макрос для автоматической нумерации ячеек

[Nikitos]

Подскажите пожалуйста, имеется такой макрос:
Sub autonumber()
Dim i As Integer
i = 1
For Each cell In Selection
cell.Value = i & ". " & cell.Value
i = i + 1
Next cell
End Sub
Суть в том, что имеется спецификация, заголовки выполнены жирным шрифтом, позиции - обычным, как сделать так, чтоб он нумеровал позиции после заголовка в заданном диапазоне, а при наличии нескольких заголовков нумерация начиналась сначала

[Владимир .]

Добрый день.
Будет нагляднее если вы прикрепите свой файл-пример. Укажете с чего начинается ваша манипуляция, в каком месте должен срабатывать макрос, какие варианты у вас могут иметь место.

[Hugo121]

Проверять жирность. Если да - то сбрасываем счётчик на 1, но его не ставим.

[Nikitos]

Спасибо!Разобрался