Pasar txt a excel a través de macro

Me paso lo siguiente:

Tengo una macro que puedo enviar los txt automáticamente a excel, mi problema es que tengo una columna que no tomar un valor completo por la estructura(42,000), de jo la macro y la fila del txt:

Sub consultaRETH()
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Test.TXT" _
, Destination:=Range("$A$1"))
.Name = "COMP1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(9, 9, 1, 9, 9, 1, 9, 9, 9, 9, 9)
.TextFileFixedColumnWidths = Array(13, 15, 12, 9, 6, 15, 16, 6, 13)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery = False
End With
ActiveWindow.SmallScroll Down:=-3
End Sub

esta es la linea que no me toma del txt:

ETC ID: xxxxxxxxxxx
ITEMS RCVD: 1 42,000 42,000
ITEMS ENVS: 3 ( 123,242) ( 123,242)
====================
SUBTOTAL NETO: ( 81,242)