Funcionou, problema resolvido. Quebrei a cabeça mas não me dei conta disso. Muito obrigado.

Oi Mauro. Segue o link para o exemplo.

Caro Coutinho. Obrigado pela ajuda mas, recebia a mesma mensagem: O método PasteSpecial da classe range falhou