Guru do Excel e Power BI

Boa tarde
A macro funciona mas nao consegue gravar a ultima coluna. Alguém saberia como corrigir o problema

O comando Resize() inicia a contagem na primeira célula, por isso em todos esses comandos altere de Resize(, 6) para Resize(, 7)

osvaldomp, grato pelo esclarecimento