Bom dia!!

Use a pesquisa do fórum e tente adaptar.

http://www.google.com.br/cse?cx=partner ... %A7%C3%A3o

Att

Boa tarde!!

Veja ....faça sua adaptação!

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

wenpra,

Boa Tarde!

Veja se assim ajuda.