For Each Filename In coll
        pi.SubAction "обрабатываем файл $index из $count", "Файл": " & Dir(Filename), "$time"
        pi.Log "Файл": " & Dir(Filename)
   
        Set WB = Nothing: Set WB = Workbooks.Open(Filename, False, True)

            pi.Log vbTab & "Ошибка при загрузке файла. Файл не обработан"

        Else   
            Set sh = WB.Worksheets(1)               

 'Время
 Set b = sh.Range(sh.Range("B2"  ;)  , sh.Range("B" & sh.Rows.Count).End(xlUp))
 shd.Range("a" & shd.Rows.Count).End(xlUp).Offset(1).Resize(b.Rows.Count, b.Columns.Count).Value = b.Value
 
 'Расход
 Set D = sh.Range(sh.Range("D2"  ;)  , sh.Range("D" & sh.Rows.Count).End(xlUp))
 shd.Range("B" & shd.Rows.Count).End(xlUp).Offset(1).Resize(D.Rows.Count, D.Columns.Count).Value = D.Value
 
 'Код АЦП
 Set E = sh.Range(sh.Range("E2"  ;)  , sh.Range("E" & sh.Rows.Count).End(xlUp))
 shd.Range("C" & shd.Rows.Count).End(xlUp).Offset(1).Resize(E.Rows.Count, E.Columns.Count).Value = E.Value
 
 ' МЧСИ1
 Set U = sh.Range(sh.Range("U2"  ;)  , sh.Range("U" & sh.Rows.Count).End(xlUp))
 shd.Range("D" & shd.Rows.Count).End(xlUp).Offset(1).Resize(U.Rows.Count, U.Columns.Count).Value = U.Value
 
 ' МЧСИ2
 Set AH = sh.Range(sh.Range("AH2"  ;)  , sh.Range("AH" & sh.Rows.Count).End(xlUp))
 shd.Range("E" & shd.Rows.Count).End(xlUp).Offset(1).Resize(AH.Rows.Count, AH.Columns.Count).Value = AH.Value
 
 ' МЧСИ3
 Set AU = sh.Range(sh.Range("AU2"  ;)  , sh.Range("AU" & sh.Rows.Count).End(xlUp))
 shd.Range("F" & shd.Rows.Count).End(xlUp).Offset(1).Resize(AU.Rows.Count, AU.Columns.Count).Value = AU.Value
 
 ' МЧСИ4
 Set BH = sh.Range(sh.Range("BH2"  ;)  , sh.Range("BH" & sh.Rows.Count).End(xlUp))
 shd.Range("G" & shd.Rows.Count).End(xlUp).Offset(1).Resize(BH.Rows.Count, BH.Columns.Count).Value = BH.Value
 
 'Ток катушки
 Set BL = sh.Range(sh.Range("BL2"  ;)  , sh.Range("BL" & sh.Rows.Count).End(xlUp))
 shd.Range("H" & shd.Rows.Count).End(xlUp).Offset(1).Resize(BL.Rows.Count, BL.Columns.Count).Value = BL.Value
 
 'Серийный№
 Set BN = sh.Range(sh.Range("BN2"  ;)  , sh.Range("BN" & sh.Rows.Count).End(xlUp))
 shd.Range("I" & shd.Rows.Count).End(xlUp).Offset(1).Resize(BN.Rows.Count, BN.Columns.Count).Value = BN.Value
 
 ' ==== конец обработки данных из очередного файла

 WB.Close False: DoEvents ' закрываем обработанный файл без сохранения изменений

 Sub Macro1()

 With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Temp\Test.tsv", _
 Destination:=Range("$A$1"  ;)  )
 .Name = "Test"
 .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 = xlDelimited
 .TextFileTextQualifier = xlTextQualifierDoubleQuote
 .TextFileConsecutiveDelimiter = False
 .TextFileTabDelimiter = True
 .TextFileSemicolonDelimiter = False
 .TextFileCommaDelimiter = False
 .TextFileSpaceDelimiter = False
 .TextFileColumnDataTypes = Array(1, 9, 9, 1)
 .TextFileTrailingMinusNumbers = True
 .Refresh BackgroundQuery:=False
 End With
End Sub