Você tentou também executar a macro passo a passo através do botao F8 para verificar onde está a falha?

Olá krlosenri, Fiz o teste com sua macro, fazendo a alteração sugerida pelo Edson e também retirando termo "-1" do comando a seguir: 'Acha ...