Sub All_File()
    Dim sh As Worksheet, wsDataSheet As Object, lLastrow As Long, sh1 As String
    Dim iCell As Range, iCell1 As Range, i As Long, iCell2 As Range, iCell3 As Range
    Dim iSearchText$, iSearchText1$
    Dim sFolder As String, sFiles As String

'---------------------------------------------------------------------------------------------------
iSearchText$ = "Номер один*"
iSearchText1$ = "Номер Два"
sh1 = "*Резюме*"
'---------------------------------------------------------------------------------------------------
Set wsDataSheet = ActiveWorkbook.Sheets("Вывод")              'Лист на который вставляются значения

lLastrow = wsDataSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    'диалог запроса выбора папки с файлами
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        sFolder = .SelectedItems(1)
    End With
    sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
'-------------------------------------------------------------------------------------------------------
    Application.ScreenUpdating = False
    sFiles = Dir(sFolder & "*.xls*")
    Do While sFiles <> ""
        'открываем книгу
        Workbooks.Open sFolder & sFiles
        On Error Resume Next
'---------------------------------------Цикл по листам--------------------------------------------------
'For Each sh In Worksheets
' If sh.Name <> "Резюме_ГРУППА*" Then GoTo Point
'-------------------------------------------------------------------------------------------------------
Set sh = Sheets(sh1)                    'Лист с которого производиться поиск
'-------------------------------------------------------------------------------------------------------
Set iCell = sh.UsedRange.Find(iSearchText$, , xlFormulas, xlPart)
Set iCell1 = sh.UsedRange.Find(iSearchText1$, , xlFormulas, xlPart)
Set iCell2 = sh.UsedRange.Find(iSearchText$, , xlFormulas, xlPart)
Set iCell3 = sh.UsedRange.Find(iSearchText1$, , xlFormulas, xlPart)
'-------------------------------------------------------------------------------------------------------
     Set iCell = sh.UsedRange.Find(iSearchText$, , xlFormulas, xlPart).Offset(1, 6)
     Set iCell1 = sh.UsedRange.Find(iSearchText1$, , xlFormulas, xlPart).Offset(1, 3)
     Set iCell2 = sh.UsedRange.Find(iSearchText$, , xlFormulas, xlPart).Offset(0, 1)
     Set iCell3 = sh.UsedRange.Find(iSearchText1$, , xlFormulas, xlPart).Offset(0, 1)
'-------------------------------------------------------------------------------------------------------
     wsDataSheet.Cells(lLastrow, 1).Value = iCell
     wsDataSheet.Cells(lLastrow, 2).Value = iCell1
     wsDataSheet.Cells(lLastrow, 3).Value = iCell2
     wsDataSheet.Cells(lLastrow, 4).Value = iCell3
     lLastrow = lLastrow + 1
    
'-------------------------------------------------------------------------------------------------------
'Point:
'Next sh
'-------------------------------------------------------------------------------------------------------
        ActiveWorkbook.Close False 'если поставить False - книга будет закрыта без сохранения
        sFiles = Dir
    Loop

    Application.ScreenUpdating = True

End Sub