Sr. Mauro, muito obrigado. Eu consegui entender e funcionou perfeitinho.

Sr. Mauro, poderia me exlicar as linhas abaixo, o que cada uma executa. Lin = 2 linha = 2 Do Until Plan12.Cells(Lin, 2) = "" ...

Sim, Sr. Mauro. A folha2 existe Testando.zip

Sr. Mauro, eu colei seu codigo na planilha e executei ela, mas deu erro: Erro em tempo de execução 424 O objeto é obrigatorio o que quer dizer isso...