Hi
what do you thing about it?
Option Explicit

Sub AutoNumeracao()

    Dim lLastRow As Long
    lLastRow = Cells(1003, 1).End(xlUp).Row
    'Valor da próxima célula será o valor da célula anterior + 1
    Range("A" & lLastRow + 1).Value = Range("A" & lLastRow).Value + 1
    'Seleciona a última linha, coluna 2 (B)
    Cells(lLastRow + 1, 2).Select

End Sub