Valóban félreértettem, itt egy javított makró. Talán most úgy értem a feladatot ahogy te, mert nem volt egyértelmu a megfogalmazás, és a gondolatolvasás úgy látszik nem megy nekem :-)

Sub Rögzítés1()
Dim T As Range
Dim c As Range
Dim R As Long
Dim M As Long
On Error GoTo Hiba
R = Cells(65536, ActiveCell.Column).End(xlUp).Row
Set T = Range(Cells(1, ActiveCell.Column), Cells(R, ActiveCell.Column))
For Each c In T
    If Not c.MergeCells Then
        M = M + 1
        c.Value = M
    End If
Next
Set T = Nothing
Exit Sub
Hiba:
Set T = Nothing
End Sub