Excel - Macro para secuencia de números de 1 a n

Public Sub RangoSeleccionado()

    ' variable de tipo Range para hacer referencia a las celdas  

    Dim Celda As Range

     Dim  X as  Long

     x = 1

    'Recorrer todas las celdas seleccionadas en el rango actual  

    For Each Celda In Selection.Cells

        ' muestra el valor   de la vila y columna

        'Aqui deberas poner el valor ... 

        With Celda

            MsgBox  "En la fila Columna deberia ir el valor de " & X , vbInformation, "Col " & .Column & " " & "Fila: " & .Row

        End With

    Next

End Sub