Você quer retornar no arquivo TXT apenas os dados da coluna T é isso?

Se esse for o caso usa o procedimento abaixo:

Sub ExecutarSalvarTXT(mPlan As Worksheet, mPathSave As String)
    Dim iArq As Long
    Dim Rng As Range
    Dim LinhaFinal As Long
    
    
    FileTxt = FreeFile
    LinhaFinal = mPlan.Cells(Cells.Rows.Count, "T").End(xlUp).Row
    
    Open mPathSave & "" & mPlan.Name & ".txt" For Output As FileTxt
    
    For Each Rng In Range("T3:T" & LinhaFinal) 'Aqui você altera o intervalod a célula no qual você quer salvar.
        Print #FileTxt, Rng.Text
    Next

Close FileTxt

    MsgBox "Novo arquivo salvo em: " & mPathSave & "" & mPlan.Name & ".txt", vbInformation

End Sub

Nesse procedimento irá criar um arquivo TXT e fazer um laço dentro da range ("T3:T" & "até a utlima linha") e inserir em cada linha do arquivo TXT.

Seria isso?

Pietro, Bom Dia!!!

Primeiramente obrigado pela atenção....
Fiz o teste...mas o código cria o arquivo TXT em branco...Ou seja não leva as informações da coluna T...Pode continuar me ajudando?

Está correto. Esqueci de incluir a referência da Worksheet no laçi. Tentar agora.

Sub ExecutarSalvarTXT(mPlan As Worksheet, mPathSave As String)
    Dim iArq As Long
    Dim Rng As Range
    Dim LinhaFinal As Long
    
    
    FileTxt = FreeFile
    LinhaFinal = mPlan.Cells(Cells.Rows.Count, "T").End(xlUp).Row
    
    Open mPathSave & "" & mPlan.Name & ".txt" For Output As FileTxt
    
    For Each Rng In mPlan.Range("T3:T" & LinhaFinal) 'Aqui você altera o intervalod a célula no qual você quer salvar.
        Print #FileTxt, Rng.Text
    Next

Close FileTxt

    MsgBox "Novo arquivo salvo em: " & mPathSave & "" & mPlan.Name & ".txt", vbInformation

End Sub

Só um detalhe. Pelo exemplo que você enviou, esse procedimento só funcionaria na planilha Informacoes01. Nas demais não. Está correto?

Funcionou perfeito...teria como também disponibilizar à 2ª aba (informacoes02)?

já na aba informacoes03 não precisa, pois vou exclui-la. Teria como?

mas existirá apenas essas duas abas nessa mesma estrutura sempre?

Isso mesmo somente duas sempre nesta mesma estrutura...

Ok. Adptei a essa necessidade. Dúvidas é só falar.

Sub ExecutarSalvarTXT(mPlan As Worksheet, mPathSave As String)
    Dim Coluna As Long
    Dim Rng As Range
    Dim LinhaFinal As Long
    Dim stLinha As String
    
    
    FileTxt = FreeFile
    LinhaFinal = mPlan.Cells(Cells.Rows.Count, "T").End(xlUp).Row
    
    Open mPathSave & "" & mPlan.Name & ".txt" For Output As FileTxt
    
    Select Case mPlan.Name
    Case "Informacoes01"
        For Each Rng In mPlan.Range("T3:T" & LinhaFinal) 'Aqui você altera o intervalod a célula no qual você quer salvar.
            Print #FileTxt, Rng.Text
        Next
    
    Case "Informacoes02"
        For Each Rng In mPlan.Range("C7").CurrentRegion 'Aqui você altera o intervalod a célula no qual você quer salvar.
            If Rng.Column < Coluna Then
                Print #FileTxt, stLinha
                Coluna = Rng.Column
                stLinha = Rng.Text & Chr(9)
            Else
                stLinha = stLinha & Rng.Text & Chr(9)
                Coluna = Rng.Column
            End If
        Next
        
        Print #FileTxt, stLinha
    
    Case Else
        MsgBox "Planilha não configura para ser executada.", vbCritical
        Exit Sub
    End Select

Close FileTxt

    MsgBox "Novo arquivo salvo em: " & mPathSave & "" & mPlan.Name & ".txt", vbInformation

End Sub

Show de Bola perfeito, mto obrigado.

Valeu mesmo!!!