Dayane, me antecipando a responder sobre a questão de executar a rotina que o Edson criou em outros arquivos, o que pode ser feito é criar um arquivo em branco, copiar as rotinas Linha e Limpar e cola-las em módulo neste novo arquivo, Salva-lo como Suplemento, e no editor do VBA selecionar EstaPasta_de_Trabalho e na Janela Propriedade no item IsAddin alterar e False para True, a aba ficará oculta, então feche o excel e quando for solicitado confirme para Salvar.
Depois reabra o Excel e em "Opções do Excel", selecione Suplementos, na janela que se abre procure o arquivo que você criou, selecione e clique em Ir..., será aberto a janela Suplementos, habilite a que acabou de criar e confirme no botão OK.
Com isto, toda vez que abrir qualquer arquivo, o suplemento será carregado, então é só usar as Teclas de Atalho que definiu e a rotina Linha será executada no arquivo.
Mas pelo que vi dos seus exemplos temos um porém, no primeiro exemplo, o qual o Edson se baseou para criar a macro, os dados iniciam na Linha 16, e neste outro exemplo que postou é iniciado na Linha 8, sem falar das Colunas, então para que tenhamos um funcionamento correto, é necessário que todos os arquivos provenientes do EMS tenham o mesmo Layout, eu criei o suplemento adaptando para o seu segundo exemplo, se todos os arquivos forem iguais eu disponibilizo o suplemento que criei para você poder utilizar.
Espero ter sido claro, qualquer duvida, retorne.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 20/12/2011 7:52 pm