Crear macro en vb para numero consecutivo en excel y hacer que se llenen las celdas asia abajo

tengo un código es este

Sub Genera()
Dim numConsec As Long
Dim strConsec As String
Range("I2").Select
Selection.NumberFormat = "@"
If IsEmpty(ActiveCell) Then
Range("I2").Value = "00000"
Else
numConsec = Val(Range("I2").Value) + 1
strConsec = Right("00000" & Trim(Str(numConsec)), 5)
Range("I2").Value = strConsec
End If
End Sub

m crea el numero consecutivo en una celda especifica pero yo quiero que me valla llenando las celdas consecutivamente

ejemplo.

CELDAS

A1 = 1

A2 =2

=3

=4

......

como puedo hacerlo he intentado con (activecell)

pero creo la coloco mal

me podrían ayudar

"MAESTROS"

la vdd si me urge

para un proyecto de vales y su contenido guardado en una base de datos

gracias se los agradeceré enteramente