Não sei se entendi, pois o trecho

u preciso importar todo o conteúdo do arquivo texto para uma única célula específica

me deixou em duvida se são todas as linhas do txt (todo o arquivo)em uma unica célula
ou uma linha "inteira" em uma célula; altera a linha altera a celula.
Se for esse ultimo experimente alterar o trecho

        'Subsdtitui somene o caracter de Tabulação
        X = Split(S, Chr(9))
        
            For N = 0 To UBound(X)
                rg.Offset(0, N) = X(N)
            Next N

Por

rg.Offset(0, 0) = S

Eu entendi que é importar o arquivo *.txt inteiro para uma célula. Se for isso, segue o código...

Public Sub ImportarArqTextoGrandes()

    Dim ArquivoTxt As Variant
    
    Dim ultimaFila, fila, contador As Long
    Dim linea, NomeArquivo As String
    Dim Ficheiro As String
    Dim S As String, N As Integer, X As Variant
    Dim rg As Range
    
    Set rg = Range("A1")
   
    'Calcula a última linha da planilha
    Selection.End(xlDown).Select
    ultimaFila = Selection.Row
   
    'Seleciona a primeira vazia
    Selection.End(xlUp).Select
   
    'Abre a Cx de Dialogo ABRIR
    ArquivoTxt = Application.GetOpenFilename("Arquivos Texto(*.txt), *.txt")
   
    'Se nenhum arquivop selecionado sai da rotina
    If ArquivoTxt = False Then Exit Sub
   
     Ficheiro = ArquivoTxt

     'Abre o arquico texto selecionado
     Open Ficheiro For Input As #1
     
     Selection = Input$(LOF(1), 1)
        
    'Fecha o arquivo Texto
    Close #1
    
    ActiveSheet.Range("A:O").Columns.AutoFit
   
End Sub

Olá Reinaldo,

Tirando sua dúvida:

O arquivo texto pode possuir inúmeras linhas. Independente da quantidade, todas as linhas serão inseridas em um célula.
Eu tentei seguir sua orientação, mas fiz na intuição, não consegui. Você pode refazer a parte do código a ser alterada?

Obrigado.

Olá Reinaldo,

Era essa a solução. Está Ok assim. Depois que enviei mais detalhes foi que vi sua resposta.

Apenas uma dúvida:
No código está definida a célula de destino, no caso A1. Esse detalhe é bem importante, mas ao executar o código, o texto foi inserido na célula ativa...O ideal seria inserir na célula definida no código.

Pode só dar uma verificada?

No teste que efetuei sempre inicia o preenchimento, independentemente da célula ativa, na célula A1, porem da guia ativa.

Olá,

Me desculpe NELSON

Eu imaginei que quem estava me ajudando fosse o Reinaldo.

Curioso,

Se eu executar o código várias vezes, ele vai inserir na linha 1 de colunas variadas. Tem uma parte do código que verifica a ultima linha / coluna preenchida, acho que isso está causando essa interferência.

Veja...

 'Calcula a última linha da planilha
    Selection.End(xlDown).Select
    ultimaFila = Selection.Row
   
    'Seleciona a primeira vazia
    Selection.End(xlUp).Select

Esse trecho apenas determina qual a ultima linha da planilha, para se o arquivo texto tiver mais linhas do que a planilha crie uma nova planilha e continue "importando" as linhas.
Porem se eventualmente ao iniciar a rotina estiver em uma outra coluna/celula que já possua dados, esse procedimento pode induzir algum equivoco.
Então selecione sempre a range("A1") ao rodar essa rotina.
inclua a linha conforme abaixo
Dim rg As Range
Range("A1").Select
Set rg = Range("A1")

Isso mesmo Reinaldo,

Agora está correto.

Acho que começo a entender melhor o código, e pensando dessa forma imaginei que existe outra parte dele que poderia ser suprimida. Diz repeito a seleção do arquivo texto.
Em alguns casos a importação se dará de vários arquivos textos, logo vai ser complicado selecionar cada um deles.

Nessa parte do código seria possível especificar o nome do arquivo ao invés de abrir a caixa para selecionar?. Todos os arquivos estarão na mesma pasta da planilha, logo isso agilizaria muito nosso trabalho, eu criaria um código para cada arquivo, ou faria a seleção do arquivo e destino direto no código...

Fora isso já está quase perfeito...

luiz, quanto a :

Em alguns casos a importação se dará de vários arquivos textos, logo vai ser complicado selecionar cada um deles.

Nessa parte do código seria possível especificar o nome do arquivo ao invés de abrir a caixa para selecionar?. Todos os arquivos estarão na mesma pasta da planilha, logo isso agilizaria muito nosso trabalho, eu criaria um código para cada arquivo, ou faria a seleção do arquivo e destino direto no código...

É possível ajustar o caminho e nome de arquivos direto na rotina, ou até alterar para opção de MultiSelect, assim podemos selecionar varios arquivos mas antes, gostaria de entender melhor, ou seja : Após abrir e copiar o texto de cada arquivo e colar na aba ativa, o proximo arquivo deverá gerar um novo arquivo excel ? Continuar a colar abaixo da ultima inserção ? ou colar em uma nova aba do mesmo arquivo ?

Para opção de lutiSelect a linha ficaria assim :
ArquivoTxt = Application.GetOpenFilename("Arquivos Texto(*.txt), *.txt", Title:="Selecione os Arquivos", MultiSelect:=True)

Se for isto antes de utiliza-la é necessário ajustar as demais linhas colocando a condição For .. Next e tambem a questão que coloquei acima

[]s

Bom dia Mauro, e obrigado.

Seguinte, deixa eu te explicar. tenho uma planilha que relaciona contratos de obras. Em determinada coluna existe a necessidade de inserir o acompanhamento do contrato. São informações referentes a cada contrato. Minha intenção é que esse acompanhamento seja feito em arquivo texto para posteriormente ser importado para a planilha na célula específica de cada contrato.

Então teríamos uma planilha com várias linhas que receberiam o texto de vários arquivos.

Um exemplo
No intervalo A1:A10 existem números de contratos, no intervalo B1:B10 será inserido o conteúdo de 10 arquivos textos, sendo na célula B1 o conteudo do arquivo CTR01, na B2 o conteúdo CTR02, na B3 o conteúdo CTR03 e assim sucessivamente, São vários contratos.

É isso.

luiz, o ideal seria anexar um modelo de seu arquivo, e detalhar tudo o que pretende, veja, primeiro começou com :
A única adaptação no código e não buscar por quebras de linhas ou colunas. Importar o texto conforme está e colar em uma célula.
Eu preciso importar todo o conteúdo do arquivo texto para uma única célula específica
Teve duas sugestões de solução,e com a rotina do Reinaldo você disse que teria de inserir sempre em "A1", agora temos Selecionar mais de um arquivo, inserir em mais de uma celula a partir de "B1" e pelo que entendi referente ao criterio do numero do contrato.
Então detalhe tudo o que pretende, ficará mais fácil do que a cada post ter uma coisa diferente.

[]s

Olá Mauro,

Reconheço as controversas prévias da solução, mas realmente ao longo das possibilidades foi inevitável.
Como eu disse o código está bem próximo da perfeição. Enviei um modelo de como ficaria a planilha após a importação.

De tudo,obrigado.

Obs: Antes de descompactar o arquivo "Arquivo.txt" mude o nome para Ctr005.zip