Tudo ok Mauro, muito obrigado mesmo pela ajuda.

Boa noite Mauro Coutinho, obrigado pela sua resposta, mas quando executo o código ele copia apenas o primeiro conteúdo para célula A1, os demais não s...