Bom dia!!

Já tentou melhorar a velocidade de sua macro?

Sub Otimozar()
 Application.Calculation = xlCalculationManual
 
 
  Application.Calculation = xlCalculationAutomatic
End Sub

Leia:
http://www.cpearson.com/excel/optimize.htm

Att

Alexandre, onde coloco esse código para melhorar a velocidade de todas as macros? ou é necessario colar dentro de todas as macros?

Boa noite!!!

Veja

Sub Otimozar()
Application.Calculation = xlCalculationManual

'Sua_Macro
  Application.Calculation = xlCalculationAutomatic
End Sub

Não entendi , mas vou tentar aqui.

Não entendi , mas vou tentar aqui.

As instruções que o Alexandre passou são para desabilitar e habilitar o Calculo Automático, uma vez que utilizamos varias formulas na planilha e o Calculo Automático estiver habilitado, toda alteração que realizarmos o excel irá recalcular, e em seu modelo alem de valores você está inserindo formulas, e a cada formula inserida o excel irá recalcular, então optando por "xlCalculationManual" o mesmo só irá calcular ou quando invertermos a opção ou quando Salvar ou Fechar o arquivo, de qualquer forma em algum momento ele irá ficar lento.

Poderiámos utilizar EnableEvent, mas não evitariamos o recalculo das formulas.

[]s