Contribuindo, vê se é isso que precisa....

trindade69,

Bom Dia!

Veja se é assim como está no arquivo anexo.

Detalhe: não havia erro de lógica, de comandos ou de funções em seu código. Ao que me parece, deve está havendo apenas um problema de configuração do teclado do seu micro, pois o erro que ocorria era em razão da utilização de caracteres não reconhecidos pelo VBA. Por exemplo: para comentar uma linha você está utilizando o caracter (‘). O reconhecido pelo VBA é o ('). Para especificar uma String você está utilizando os caracteres (“ e ” como no exemplo Sheets (“Inicio”)). O VBa reconhece apenas os caracteres (" e " - Sheets("Inicio")).

Olá, Wagner, muito obrigado. Está perfeita.