Macro para Generar Números

Dim i As Integer
Range("A5").Select
For i = 1 to Range("A1").Value  'Suponiendo que aquí pones el número
      Activecell.Value = i
      ActiveCell.Offset(1, 0).Selet
Next i
Y listo, ya tienes tu listado.

Hola Experto, como estas
Muchas gracias por tu respuesta, ¿pero me podrías ayudar con otra cosa? Se le debe colocar el (¿Sub)? Para poder ejecutarla y quedaría así:
Sub numero()
Dim i As Integer
Range("A5").Select
For i = 1 To Range("A1").Value   'Suponiendo que aquí pones el número
      ActiveCell.Value = i
      ActiveCell.Offset(1, 0).Selet
Next i
End Sub
Que pena contigo, cuando me colocas "'Suponiendo que aquí pones el número" en este caso que debo hacer aquí, ya que la ejecuto y me saca un error.
Muchas gracias

Poner 10, 20, 30 ó el número que sea en A1 para que se ejecute el ciclo.

Hola Experto, como estas...
¿Qué pena con vos, pero no se si es que estoy haciendo algo mal, pero cuando realizo los pasos tal cual lo indicas para ejecutar la macro, me saca un mensaje de error "el objeto no admite esta propiedad o método" que podrá ser?
Muchas gracias