Generar correlativo con While VBA - Excel

[3pies]

Prueba esto:

Código:

Sub correlativos()
'nos situamos en la celda A1
Range("A1").Select
'desde 1 hasta 100...
For i = 1 To 100
  'escribe el valor en la celda activa
    ActiveCell = i
  'baja una fila
    ActiveCell.Offset(1, 0).Select
'continúa con el bucle
Next
End Sub

Salu2