Nao entendi...

Acho que é isso...

Sub numeração()

    Sheets("Plan1").Select
       Set c = Worksheets("Plan1")
       i = c.Cells(Cells.Rows.Count, "a").End(xlUp).Row+1
       For j = 15 To i
            If IsNumeric(c.Cells(j - 1, 1)) Then
                 c.Cells(j, 1) = c.Cells(j - 1, 1) + 1
            Else
                 c.Cells(j, 1) = 1
            End If
       Next
       
'Read more: http://excelmax.blogspot.com.br/2012/12/numeracao-automatica-no-excel-com-vba.html#ixzz43qJczMPJ
   End Sub

deu erro seu código tente isto...

Sub numeracao_automatica()
Dim ultimALINHA
If Sheets("Plan1").Range("A2") <> "" Then
ultimALINHA = Sheets("Plan1").Range("A100").End(xlUp).Row 'A 100 é referente a quantas linhas tem no seu excel
 Sheets("Plan1").Range("A" & ultimALINHA + 1).Value = Sheets("Plan1").Range("A" & ultimALINHA).Value + 1

End If
If Sheets("Plan1").Range("A2") = "" Then
Sheets("Plan1").Range("A2") = 1
End If
End Sub

deu erro seu código tente isto...

Sub numeracao_automatica()
Dim ultimALINHA
If Sheets("Plan1").Range("A2") <> "" Then
ultimALINHA = Sheets("Plan1").Range("A100").End(xlUp).Row 'A 100 é referente a quantas linhas tem no seu excel
 Sheets("Plan1").Range("A" & ultimALINHA + 1).Value = Sheets("Plan1").Range("A" & ultimALINHA).Value + 1

End If
If Sheets("Plan1").Range("A2") = "" Then
Sheets("Plan1").Range("A2") = 1
End If
End Sub

Messias, o problema é que tenho várias planilhas e a quantidade de linhas varia a menor planilha tem 20 linhas porem a maior tem mais de 2000 linhas.
O código que postei funciona porem preciso que ele pule a primeira linha que ele encontra, não consegui alterar isso.

Se eu entendi o problema troque essa linha

ultimALINHA = Sheets("Plan1").Range("[b]A100[/b]").End(xlUp).Row 'A 100 é referente a quantas linhas tem no seu excel

Por esta

ultimALINHA = Sheets("Plan1").Range("[b]A1048576[/b]").End(xlUp).Row 

Se eu entendi o problema troque essa linha

ultimALINHA = Sheets("Plan1").Range("[b]A100[/b]").End(xlUp).Row 'A 100 é referente a quantas linhas tem no seu excel

Por esta

ultimALINHA = Sheets("Plan1").Range("[b]A1048576[/b]").End(xlUp).Row 

MPrudencio, o código é o abaixo:

Sub numeração()

    Sheets("Plan1").Select
       Set c = Worksheets("Plan1")
       i = c.Cells(Cells.Rows.Count, "a").End(xlUp).Row+1
       For j = 15 To i
            If IsNumeric(c.Cells(j - 1, 1)) Then
                 c.Cells(j, 1) = c.Cells(j - 1, 1) + 1
            Else
                 c.Cells(j, 1) = 1
            End If
       Next
       
'Read more: http://excelmax.blogspot.com.br/2012/12/numeracao-automatica-no-excel-com-vba.html#ixzz43qJczMPJ
   End Sub

Neste link http://www.tomasvasquez.com.br/forum/download/file.php?id=3164 tem um modelo da planilha que utilizo o código

O código que eu lhe dei por ultimo ele procura na planilha na coluna a ultima linha preenchida se não encontrar será a celula a2.

Messias, pelo que entendi do seu código ele numera a partir da ultima linha preenchida o problema é que a coluna não esta vazia. Conforme imagem abaixo:

Qual sempre será a célula que vai começar a numeração automática ?
A4 ou A5 ?

A5.

Use este código sem medo de errar... que da certo.

Sub numeracao_automatica()
Dim ultimALINHA
If Sheets("Plan1").Range("A5") <> "" Then
ultimALINHA = Sheets("Plan1").Range("A60000").End(xlUp).Row 'A 100 é referente a quantas linhas tem no seu excel
Sheets("Plan1").Range("A" & ultimALINHA + 1).Value = Sheets("Plan1").Range("A" & ultimALINHA).Value + 1

End If
If Sheets("Plan1").Range("A5") = "" Then
Sheets("Plan1").Range("A5") = 1
End If
End Sub

Messias, inseri o código na planilha em anexo e não funcionou.
O que pode estar errado?

Aqui funcionou normal...Te mandei uma mensagem privada.

Segue código.

Sub VER()
Set guia = Sheets("Consolidado 2")
    Dim Consolidado_2 As Sheets
    Dim valor_pesq, coluna, temporario
    linha = 15
    coluna = 1
     Sheets("Consolidado 2").Select
     With guia
        While .Cells(linha, coluna).Value <> Empty
            valor_celula = .Cells(linha, coluna).Value 'recebe o valor da célula para fazer o teste
            
            If UCase(Left(valor_celula, Len(valor_pesq))) = UCase(valor_pesq) Then
             With Consolidado_2
              
              
              
              
              If Sheets("Consolidado 2").Cells(linha, 4) = "" Then
              temporario = 0
              End If

              If Sheets("Consolidado 2").Cells(linha, 4) <> "" Then
              If Sheets("Consolidado 2").Range("A15") <> 1 Then
              Sheets("Consolidado 2").Range("A15") = 1
              temporario = 1
              End If
              
              If Sheets("Consolidado 2").Range("A15") = 1 Then
              temporario = temporario + 1
              Sheets("Consolidado 2").Cells(linha, 1) = temporario
              End If
              End If
              
              End With
             End If
            linha = linha + 1
        Wend
        End With
End Sub