E so digitar na celula a conta

Kd a planilha?

O que acontece é que vc esta fazendo uma referencia em cima de um intervalo ao inves de fazer em uma unica celula O erro esta na linha If login.Val...

Isso é o normal se a linha mudou de posição a referencia deve acompanhar. Do contrario seu calculo sera errado.

Tenta este Sub Limpar() Dim WCLinha As Long 'A macro inicia na linha 1 se for para funcionar a partir de outra linha troque o numero abaixo ...

Eu fiz o download da planilha e nao ocorreu nenhum erro Faça o download novamente pode ter apagado algo que nao devia na planilha

Pessoalmente juntaria tudo em um arquivo

antes de loop acrescente essa linha activecell.offset(1,0).select Para que o cursor pule uma linha do contrario entrara em loop infin...

Cole esse codigo em um modulo associe a um botao. Sub Imprime() If Target.Column = 4 Then Dim Nome_Celula As String Nome_Celula = Active...

Nao entendi muito bem o que vc quer faz um exemplo com dados de como vc espera o resultado.

Pq nao faz a busca na planilha e carrega apenas o resultado

Nao entendi

Não seria mais simples deixar um numero de celulas prontas para o usuario inserir dados e caso precise usar a alça de preenchimento para ampliar a for...

Conforme exemplo anterior segue tabela dinamica. Dentro do seu codigo que realiza o cadastro na ultima linha acrescente essa linha de codigo Activ...

Se disponibilizar o arquivo fica mais facil ajudar