Pregunta para LuisMondelo Numerar celdas en excel

Te mando la macro que necesitas

Sub ejemplo()
'por luismondelo
columna = 1
Cells(1, columna).Select
For x = 1 To 9999999
ActiveCell.Value = x
ActiveCell.Offset(1, 0).Select
If ActiveCell.Offset(1, 0).Row = 1048576 Then
columna = columna + 1
Cells(1, columna).Select
End If
Next
End Sub