Como crear un consecutivo en excel

A partir de esta formula

Dim numConsec As Long

Dim strConsec As String

Range("A10").Select

Selection.NumberFormat = "@"

If IsEmpty(ActiveCell) Then

Range("A10").Value = "00000"

Else

numConsec = Val(Range("A10").Value) + 1

strConsec = Right("00000" & Trim(Str(numConsec)), 5)

Range("A10").Value = strConsec

End If

End Sub