Disponibilize o arquivo como modelo assim fica mais facil ajuda-lo Ficar adivinhando é complicado

Teste esse Sub Somar() ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)" End Sub

se essa celula é fixa numa determinada linha usar a função soma nao resolve?

Vamos la: Foram feitos os ajustes que vc pediu. Alterei o local do NIF Como vc tem medo de sua funcionaria cometer erros na folha clientes criei um...

EXperimente assim Sub Copiar2() Dim LR As Integer 'retorna o número da última linha com conteúdo na coluna LR = Sheets("BD_Dt_Fatura").Cell...

So de diminuir {MAIOR(($B$2:$B$40000=B2)} para {MAIOR(($B$2:$B$5000=B2)}, ja vai melhorar em muito o desempenho. Faça o teste. ....

Modelo do arquivo.

A minha pergunta é vc tem 40000 linhas preenchidas na planilha onde vc usa a formula em questao??? Acho que o maior problema esta nisso veja um exemp...

Ja tentou colocar os codigo dentro do evento ?

Acabei testando o botao e descobri o que ele faz Acredito que esta resolvido Havia esquecido de enviar o ficheiro. Insira imagens na folha toda p...

Vamos la o campo nome apagou a formula acidentalmente, ela é a que coloquei no campo novamente Informe onde vc deseja que o campo nif D1 e D2 seja a...

Em C4 verifique se tem essa formula =SE(D2="";"";PROCV(D2;CLIENTES;2;0)) E no caso do contador digite 3000 antes de começar a ut...

Mas neste caso para a sua necessidade se vc nao replicar as informações inclusive para poder classificar os dados se desejar. Os dados em todas as li...

Disponibilize o arquivo com o codigo e dados de exemplo.

A questao é que sem um modelo quem escrever o codigo vai escrever um codigo generico e se quem pergunta nao sabe nada, o resultado é que sera sem util...