Generar correlativo con While VBA - Excel

[tazzwt]

Como se puede hacer esto con codigo VBA.

Que desde la celda A1 hasta la A100 muestre los numeros correlativo.

Es decir recorrer la columna A1 desde el 1 hasta el 100 .

Demo:





Tengo este codigo:

Código Excel:

Sub misnumeros()
    Dim x As Integer
    x = 1
    While x < 100
    Sheets("Hoja1").Range("A" & x).Select = x
    x = x + 1
    Loop
End Sub