Else    ' файл успешно открыт
             Set sh = WB.Worksheets(1)    ' будем брать данные с первого листа
             ' берем диапазон ячеек с ячейки A2 до последней заполненной в столбце A
             Set ra = sh.Range(sh.Range("a2"), sh.Range("a" & sh.Rows.Count).End(xlUp)).Resize(, 10)
             ' ==== переносим данные в наш файл (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