Segue código. Sub VER() Set guia = Sheets("Consolidado 2") Dim Consolidado_2 As Sheets Dim valor_pesq, coluna, temporario linha...

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

A5.

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 abaix...

Se eu entendi o problema troque essa linha ultimALINHA = Sheets("Plan1").Range("[b]A100[/b]").End...

deu erro seu código tente isto... Sub numeracao_automatica() Dim ultimALINHA If Sheets("Plan1").Range("A2") <> "...