Sub ИзЛистовВОдин()
    Dim ws As Worksheet
    Set wbCurrent = ActiveWorkbook
    Workbooks.Add
    Set wbReport = ActiveWorkbook
    'копируем на итоговый лист шапку таблицы из первого листа
    wbCurrent.Worksheets(1).Range("A4:G4").Copy Destination:=wbReport.Worksheets(1).Range("A1")
     
    'проходим в цикле по всем листам исходного файла
    For Each ws In wbCurrent.Worksheets
     
        'определяем номер последней строки на текущем листе и на листе сборки
'        N = wbReport.Worksheets(1).Range("С1:С").CurrentRegion.Rows.Count
        ' до слов Итого по ресурсному расчету:
               
'
'        For i = 3 To Cells(Rows.Count, 3).End(xlUp).Row
'If Cells(i, 3) = "Итого по ресурсному расчету:" Then
''   Cells(i, 3).Select
''        Selection.Copy
''        Range("T4").Select
''        ActiveSheet.Paste
'        End If
'Next
         
        'задаем исходный диапазон, который надо скопировать с каждого листа - любой вариант на выбор:
'        Set rngData = ws.Range("A1:D5")            'фиксированный диапазон или
'        Set rngData = ws.UsedRange                 'всё, что есть на листе или
'        Set rngData = ws.Range("F5").CurrentRegion    'область, начиная от ячейки F5 или
        Set rngData = ws.Range("A4", ws.Range("A4").SpecialCells(xlCellTypeLastCell))    'от А2 и до конца листа
         
        'копируем исходный диапазон и вставляем в итоговую книгу со следующей строки
        rngData.Copy Destination:=wbReport.Worksheets(1).Cells(N + 1, 1)
         
    Next ws
End Sub