Problema com Macro

[Edfake]

Bom dia galera do fórum,

Preciso de uma ajuda acho q pode ser até um coisa simples mais q não to conseguindo desenvolver.

Eu trabalho com um banco de dados no excel com uma numeração de ordem de lançamento e com uma procv para a busca de fornecedores. A questão é quero criar uma macro para que sempre q eu queira fazer um novo registro, a mesma insira uma linha, puxe o último número de ordem e some +1 e copie a proc pra linha de baixo (Obs.: tentei fazer essa macro e acontece q ela fica estacionada em determinada célula [ex.: A2=5 e quando vou rodando ela só vai me dando o proximo número 6, 6, 6.. e não sai dele]) Alguém tem alguma ideia????

[Wendell Menezes]

Boa tarde,

Garanta que não há células vazias na coluna "A" abaixo da célula "A7" e utilize este código:

Sub Inserir_Linha()

Range("A7").End(xlDown).Offset(1, 0).EntireRow.Insert

Range("A7").End(xlDown).Offset(0, 2).AutoFill Range(Range("A7").End(xlDown).Offset(0, 2).Address & ":" & Range("A7").End(xlDown).Offset(1, 2).Address)

Range("A7").End(xlDown).Offset(1, 0).Value = Range("A7").End(xlDown).Value + 1

End Sub

Abraços