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

A planilha tem 58Mb, posso enviar? Segue o txt.

O código abaixo achei na internet e adaptei.

Option Explicit
 
Public Sub LeArquivoTexto()
    Dim Arquivo As Integer
    Dim CaminhoArquivo As String
    Dim TextoArquivo As String
    Dim TextoProximaLinha As String
    Dim ContadorLinha As Long
 
    'Configura a leitura do arquivo
    Arquivo = FreeFile
    CaminhoArquivo = "C:UserscamilofcDocumentsSAPSAP GUI111111111.TXT"
 
    'Abre o arquivo para leitura
    Open CaminhoArquivo For Input As Arquivo
    ContadorLinha = 1
    'Lê o conteúdo do arquivo linha a linha
    Do While Not EOF(Arquivo)
        Line Input #Arquivo, TextoProximaLinha
        TextoProximaLinha = TextoProximaLinha & vbCrLf
        TextoArquivo = TextoArquivo & TextoProximaLinha
            Debug.Print TextoArquivo
    Loop
     
    'Coloca na janela de verificação imediata
    Debug.Print TextoArquivo
 
    'Fecha o arquivo
    Close Arquivo
 
End Sub

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

A rotina disponibilizada, apena lê o arquivo, sem importa-lo para planilha.
Para ler, eliminando o valor desejado experimente

Public Sub LeArquivoTexto()
Dim Arquivo As Integer
Dim CaminhoArquivo As String, TextoArquivo As String, TextoProximaLinha As String
Dim ContadorLinha As Long

'Configura a leitura do arquivo
Arquivo = FreeFile
CaminhoArquivo = "C:UserscamilofcDocumentsSAPSAP GUI111111111.TXT"
'Abre o arquivo para leitura
Open CaminhoArquivo For Input As Arquivo
ContadorLinha = 1
'Lê o conteúdo do arquivo linha a linha
Do While Not EOF(Arquivo)
    Line Input #Arquivo, TextoProximaLinha
        
    If TextoProximaLinha Like "*15000*" Then
        TextoProximaLinha = Replace(TextoProximaLinha, 15000, "", 1, , vbTextCompare)
        Debug.Print TextoProximaLinha
    End If
    
    TextoProximaLinha = TextoProximaLinha & vbCrLf
    TextoArquivo = TextoArquivo & TextoProximaLinha
    Debug.Print TextoArquivo
Loop
     
'Coloca na janela de verificação imediata
Debug.Print TextoArquivo

'Fecha o arquivo
Close Arquivo

End Sub

Muito bom. É isso que preciso. Agora falta Salvar o txt alterado na pasta "C:UserscamilofcDocumentsSAPReservador".