А я для себя как-то макрос для нумерации пунктов писал.  
Ему на разные форматы ячеек (кроме числовых, конечно) наплевать. И объединённые ячейки не мешают:  
Sub RowsNum()   'нумерация ячеек в первом выделенном столбце Selection. Объединенные ячейки не мешают  
  If TypeName(Selection) <> "Range" Then Exit Sub  
  If Selection.Columns.Count <> 1 Then Intersect(Selection, Selection(1).EntireColumn).Select  
  On Error Resume Next  
  Application.ScreenUpdating = False  
  Dim iCell As Range, MrgCls As Boolean  
  Dim Nn: Nn = Selection(1)  
  If Not IsNumeric(Nn) Then  
     Nn = InputBox("Введите НОМЕР первого пункта", "В первой ячейке - текст!", 1)  
     If Not IsNumeric(Nn) Then Exit Sub  
  End If  
  Nn = Int(Nn)  
  If Nn = 0 Then Nn = 1  
  For Each iCell In Selection  
     With iCell  
        If (Not .MergeCells) Or (.MergeCells And .Address = .MergeArea.Cells(1).Address) Then  
           .Value = Nn: Nn = Nn + 1  
           .NumberFormat = Selection(1).NumberFormat  
           .HorizontalAlignment = Selection(1).HorizontalAlignment  
           .VerticalAlignment = Selection(1).VerticalAlignment  
           .Orientation = Selection(1).Orientation  
           .ShrinkToFit = Selection(1).ShrinkToFit  
        End If  
        If .MergeCells Then MrgCls = True  
     End With  
  Next  
  Application.ScreenUpdating = True  
End Sub