Нумерация строк, пропуская объединенные

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 = False
End With
Next
Application.ScreenUpdating = True
End Sub

Sub vvv()
Dim i%, n%
Application.ScreenUpdating = False 'отключаем обновление экрана
n = 1
For i = 6 To Cells(Rows.Count, 2).End(xlUp).Row
  If Not Cells(i, 1).MergeCells Then Cells(i, 1) = n: n = n + 1
Next
Application.ScreenUpdating = True 'включаем обновление экрана
End Sub