Guru do Excel e Power BI

Pessoal,

Necesitava de uma ajuda em VBA.

Estou fazendo um código para envio automático de mensagens. Porém gostaria de travar na ultima celula preenchida , mas a macro fica em loop infinito. O que eu errei no código que eu fiz?

Muito Obrigado pela ajuda.

Boa noite a todos.