' перебираем все найденные в папке файлы
    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)

        If WB Is Nothing Then    ' не удалось открыть файл
            pi.Log vbTab & "ОШИБКА при загрузке файла. Файл не обработан."

        Else    ' файл успешно открыт
            Set sh = WB.Worksheets(1)    ' будем брать данные с первого листа
            ' берем ячейку  B2 
            Set ra = Range("B2")

            ' ==== переносим данные в наш файл (shd - кодовое имя листа, куда помещаем данные)
            shd.Range("a" & shd.Rows.Count).End(xlUp).Offset(1).Resize(ra.Rows.Count, ra.Columns.Count).Value = ra.Value
            ' ==== конец обработки данных из очередного файла

            WB.Close False: DoEvents    ' закрываем обработанный файл без сохранения изменений
            pi.Log vbTab & "Файл успешно обработан."

        End If
    Next

    ' закрываем прогресс-бар, включаем обновление экрана
    pi.Hide: DoEvents: Application.ScreenUpdating = True
    MsgBox "Обработка заявок завершена", vbInformation
End Sub

Sub ClearTable()
    On Error Resume Next: shd.UsedRange.Offset(2).ClearContents
End Sub