Voce pode melhorar bastante o desempenho desabilitando recursos do excel enquanto executa o loop.

Desativa no inicio da Sub e ativa novamente no final.

Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic

Boa noite Raygsson,

Desculpe a demora em retornar.

Então, eu utilizo essas desabilitações e mesmo assim a macro ainda ficava lenta.

A solução que eu consegui para acelerar foi usar as fórmulas índice e corresp, lançando via vba na célula e transformando em valores depois, o ganho foi absurdo, de 20 min foi para 15 seg.

Obrigado pela ajuda.

Abs,