Sem ter como testar fica dificil ajudar Poste o arquivo que esta usando.

Verdade Faltou o Resume On Error Resume Next

Tente isso apos essa linha Set Ws = ThisWorkbook.ActiveSheet Acrescente essa On Error Next

Acho q e obvio que vc precisa enviar o arquivo com o que interessa

Mais facil explicar todo o processo talvez nao seja necessario classificar O que pretende fazer?

Pq com formulas???

Disponibilize a planilha, o TXT e o codigo que esta usando atualmente.

Pode ser assim? Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 1 And Target.Column <> 3 Then Exit S...

Postar a imagem é o mesmo que nao postar nada... Alem de dar um trabalhão....

Se postar o arquivo com o resultado esperado manualmente fica facil.. A imagem e nada é a mesma coisa.

Cole esse codigo em um modulo Sub Criar() Dim WSPlan As Worksheet Dim Arq As String On Error Resume Next For Each WSPlan In Workshe...

Com base no seu arquivo Para funcionar corretamente precisa seguir essas condições O cabeçalho deve estar na linha 2. Não deve ter linhas vazias ...

Acho que nao

Eu usaria uma tabela dinamica.

Vc postou 1 arquivo com 1 aba...Onde esta as outras??