Muito obrigado Wagner.

o problema que são 285 colunas achar as linhas que estão de forma aleatória para deletar nas 285 colunas fica bem difícil, para Selecionar uma a um...

Wagner o código quando usado a senha com "letras", não funciona muito bem ele exibe as abas sem precisar escrever toda a senha Ex: se a se...

a primeira parte eu consegui fazer, passar os dados da plan1 para a plan2 a segunda parte que é colocar os dados de: nome da transportadora, data e ...

espero que de dessa forma fique mais fácil Plan1 copia dados da H28:C53 (porem nem sempre todas as linhas estão preenchidas), colar na Plan2 a partir...

wagner, muito oibrgado consegue agora adaptei o código e ficou ótimo, Sub extrair() Dim i As Integer, j As Byte Dim UltimaLinha As Long ...

muito obrigado