Pessoal, bom dia!

Gostaria de uma ajuda na análise de um código que traz o dia útil, excluindo fins de semana e feriado com a Função Workday da biblioteca WorksheetFunction. O problema é que, quando o insiro no arquivo original, há grande delay com congelamento de tela. Podem avaliá-lo e sugerir uma melhoria, se possível com recurso de matriz? Estou anexando o arquivo para análise.

Agradeço o apoio.