Não sei se entendi a estrutura do arquivo *.txt de forma correta, mas segue minha colaboração...

Não entendi muito bem o porque da necessidade de preencher TODAS as células da coluna M. Dependendo da versão do Excel utilizada, a macro vai levar al...

Comente a linha "On Error GoTo PROC_ERR" e execute a rotina. Ela vai mostrar onde está dando erro no código. O problema é que sem eu ter ac...

Veja se seria isto...

Ou assim: Public Sub DeletarPlan_01() Const cPLAN As String = "Plan1" Dim wkb As Workbook Application.DisplayAl...

Pode ser assim: Public Sub DeletarPlan() Const cPLAN As String = "Plan1" Dim wkb As Workbook Dim wks As Worksheet ...

Veja se é mais ou menos isto que você quer fazer...

Disponibilize um arquivo mostrando como devem ficar os dados após a importação do arquivo *.prn que fica bem mais fácil de entender. O arquivo Teste....

Veja se é algo mais ou menos assim...

Pelo que eu entendi do problema dá a impressão que esse código é meio "enroscado". Duas rotinas para fazer algo que pode ser feito em uma só...

Apague a linha "Cell.Font.ColorIndex = 1" e teste novamente... Sub AleVBA_17899() Dim rng As Range Set rng = [A2:A250] 'Al...

Bem, como acabei de escrever uma outra rotina que também fazia exclusão, aproveitei para desenvolver esta. Vejamos se eu entendi direito o problema.....

Teste esta rotina e veja se resolve...

Poste um arquivo contendo a planilha "consolidado" indicando quais são os registros que precisam ser atualizados no Acess que fica bem mais ...

Neste arquivo você pode duplicar quantos produtos quiser, basta incluir seus nomes na planilha de parâmetros. Isso deve resolver os 0,01% que faltam....