Bom dia!!

Já usou a pesquisa do fórum!!

Option Explicit

Sub AutoNumeracao()
'###Autor:themrl16###
'###Fonte:http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=11114###
    Dim lLastRow As Long
    'Pega a última linha preenchida antes da linha 1003, coluna 1 (A)
    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

Att