Como eu disse digitar diretamente nao ajuda?

Qual a solução encontrada

Vc testou o codigo completo que postei.

Fazer essa classificação manualmente nao resolve???????? Dados > Classificar

srobles obrigado pela resposta mas deu erro dentro do with nessas linhas With VBCM InsertLineIndex = .CountOfLines + 1 ...

Depois algum moderador junta as duas Testa esse Sub Inserirlinha() 'desabilita atualização de tela Application.ScreenUpdating = False 'ins...

Aqui copiou o valor Nao é so pra copiar??? Vc disse que estava duplicando o valor e isso foi resolvido pelo menos aqui.

Disponibiliza o arquivo então.

Ve se é isso ou se consegue ajustar

Ainda ta meio confuso mas se eu entendi é algo proximo a isso que vc quer. Digite o valor procurado e de enter esta no evento exit da text box

Edson bom dia como disse testei sua sugestão mas deu erro. Erro em tempo de execução 1004 O metodo Range do Objeto' _Worksheet' falhou Alguma idei...

Olhando o codigo nao tem motivos aparentes para isso Depure o codigo com as duas telas abertas que vc vai ver o pq esta acontecendo o erro... Se nao...

JValq obrigado pela postagem mas vc fez uma confusao danada, misturou os dois codigos e escreveu um novo que vou estudar no futuro para conhecer as in...

Nao sei qual o tamanho da base dados mas o ideal seria copiar e colar. Neste caso seria interessante vc disponibilizar o arquivo real. no quesito num...