По большому счёту, можно тхт вообще не импортировать в том смысле, как это понимает ТС.  
Можно макросом взять из него нужные данные и использовать их в рассчётах.  
Т.е. имеем файл с шаблоном для вывода результатов и макрос (может быть в лругом файле).  
Макрос открывает текст, выбирает нужные данные, производит расчёты, выгружает результаты на лист.  
Или выгружает на лист только нужные данные из тхт, которые далее используются в формулах листа.

Читаем весь текст в массив, разбивая его по концам строк.  
Например:  
 
   Set objFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(MyPath & "input.txt", 1)  
   strContents = objFile.ReadAll: objFile.Close: Set objFile = Nothing  
   arrLineList= Split(strContents, vbCrLf)  
   strContents = Empty  
 
Далее перебираем циклом массив arrlines, каждую строку разбиваем на "ячейки" по разделителям или позиции в строке, пробелы убрать с помощью Trim().  
Т.е. получаем что-то вроде листа, но в памяти.  
Практически все задачи по анализу тхт можно таким способом выполнить.  
 
"5 строка 5 по счету значение" - это arrlines(4), а 5-ое значение можно получить например так:  
 
Trim(Mid(arrLineList(4), 17, 4)) 'ENT  
 
А вот  кусок рабочего кода по наполнению массива данными тхт:  
 
for y = 0 to UBound(arrLineList)  
Dt(y+1,1) = Trim(Mid(arrLineList(y), 1, 6)) 'NAME  
Dt(y+1,2) = Trim(Mid(arrLineList(y), 7, 3)) 'ID  
Dt(y+1,3) = Trim(Mid(arrLineList(y), 10, 3)) 'ST  
Dt(y+1,4) = Trim(Mid(arrLineList(y), 13, 4)) 'CS  
Dt(y+1,5) = Trim(Mid(arrLineList(y), 17, 4)) 'ENT  
next  
 
Но конечно нужно видеть Ваш тхт и корректировать код по месту - наверняка какие-то строки можно при анализе пропускать, какие-то разбивать иначе.  
Всё это можно организовать дополнительными проверками на наличие "индикаторов" в строке - например, если три первых знака строки цифры, то так поступаем, а если там "---" , то иначе, а если пусто - то вообще строку пропускаем.

ну по поводу примера, сделал, но очень урезанный, строк больше в неск раз.

так попробовал код, вопрос возник в плане, что остается символ ----- в виде длинной полосы, вот, и непонятно почему он слово "Таблица" разорвал и потерял букву А? может можно ли эту строку всю "таблица *** *** *** *" пихнуть в первый столбик?  
а так все вроде как надо, ну а нужно на основе этого получить рассчеты, я и думал что как -то добавить этот лист в шаблон. например на шаблоне все таблицы заполнены формулами ссылающимися на "Лист1" но листа 1 нету, вот мы берем полученные лист втот щаблон и добавляем. соответсвенно формулы все просчитают. и готово.    
либо может проще делать как-то иначе, например лист 1 там уже присутствует пустым, а в него данные копируются.  
либо же может взять просто вариант EducatedFool, и просто по кнопке в файл добавлять, но у меня обычно новый файл создается, как сделать  что бы он в существующий добавил данные без создания новых книг и листов.

2Hugo  
все понял, спасибо!!!!!!  
только вот по массиву, если например через массив, это то что вы давали двумя постами выше?

а можете посоветовать, что стоит почитать по VBA  и про массивы полезное на будущее?)(для "не очень программиста") а то я чувствую с текстовиками мне еще много работать)

Спасибо попробую таким образом разобраться.  
нет мне нужно только получить данные ничего не складывая между собой. все расчеты уже отдельно потом.

это пока сложно воспринять) вообщем попробовал следующим образом сделать. тяну так    
Sub Import()  
Dim strPath As String  
Dim fd As FileDialog  
Dim vrtSelectedItem As Variant  
   Set fd = Application.FileDialog(msoFileDialogFilePicker)  
   With fd  
       .AllowMultiSelect = False  
       .Filters.Clear  
       .Filters.Add "Text Files", "*.txt"  
       If .Show = -1 Then  
           strPath = vrtSelectedItem  
    With ActiveSheet.QueryTables.Add(Connection:= _  
       "TEXT;strPath" _  
       , Destination:=Range("$A$1"))  
       .Name = "strPath"  
       .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 = 2  
       .TextFileParseType = xlDelimited  
       .TextFileTextQualifier = xlTextQualifierDoubleQuote  
       .TextFileConsecutiveDelimiter = False  
       .TextFileTabDelimiter = False  
       .TextFileSemicolonDelimiter = False  
       .TextFileCommaDelimiter = False  
       .TextFileSpaceDelimiter = False  
       .TextFileOtherDelimiter = "¦"  
       .TextFileColumnDataTypes = Array(1)  
       .TextFileTrailingMinusNumbers = True  
       .Refresh BackgroundQuery:=False  
   End With  
   Union(Range( _  
       "81:81,84:84,86:86,89:89,91:91,94:94,96:96,98:98,100:100,103:103,105:105,107:107,109:109,112:112,114:114,116:116,118:118,121:121,124:124,126:126,128:128,132:132,134:134,136:136,138:138,140:140,143:143,145:145,148:148,152:152,154:154,156:156" _  
       ), Range( _  
       "159:159,163:163,167:167,169:169,4:4,7:7,9:9,11:11,15:15,18:18,20:20,23:23,25:25,27:27,29:29,32:32,34:34,36:36,39:39,41:41,44:44,47:47,49:49,51:51,53:53,55:55,57:57,59:59,61:61,63:63,65:65,68:68" _  
       ), Range("72:72,75:75,77:77,79:79")).Select  
   Range("A169").Activate  
   Selection.Delete Shift:=xlUp  
   Range("A102:A103").Select  
   Selection.Cut  
   Range("B102").Select  
   Range("A1:A3").Select  
   Selection.Cut  
   Columns("A:A").Select  
   Selection.Delete Shift:=xlToLeft  
         End If  
   End With  
   Set fd = Nothing  
End Sub  
 
но что-то не работает... ругается в частности на Refresh BackgroundQuery:=False

With ActiveSheet.QueryTables.Add(Connection:= _  
"TEXT;" & strPath _