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

Nao identifiquei qual a sua chave primaria para que na hora de gravar a alteração seja localizado o registro correto. Pode ser o CPF, RG ou outra par...

De forma grosseira é este o caminho.

Olhei a planilha que DJunqueira postou e nao entendi qual seria a coluna Grupo que vc se refere para impressão. Como é a planilha que sera impressa? ...