Sub DeleteEmptyRow(sh As Worksheet)
    With sh
        Dim y As Long
        y = .Cells(.Rows.Count, 1).End(xlUp).Row
        Dim a As Variant
        Dim e As Variant
        If y = 1 Then y = 2
         
        a = .Range(.Cells(1, 1), .Cells(y, 1))
        e = .Range(.Cells(1, 5), .Cells(y, 5))
         
        For y = UBound(a, 1) To 2 Step -1
            If a(y, 1) = "" Or e(y, 1) <> "+" Then
                .Rows(y).Delete
            End If
        Next
    End With
End Sub

.Range(.Cells(1, 1), .Cells(y, 5)).AutoFilter Field:=5, Criteria1:="+"

Public first_file As Boolean
Sub Main()
    Application.ScreenUpdating = False
     
    Dim shSum As Worksheet:
    Set shSum = ThisWorkbook.Sheets(1)
    Job_sum_sheet1 shSum
    Job_folder shSum
    Job_sum_sheet2 shSum
    Application.ScreenUpdating = True
End Sub
Sub Job_folder(shSum As Worksheet)
    Dim fso As Object: Set fso = CreateObject("Scripting.Filesystemobject")
    Dim f As Variant
    first_file = True
    For Each f In fso.GetFolder(ThisWorkbook.Path).Files
        With f
            If fso.GetExtensionName(.Name) Like ("xls*") Then
                If Left(.Name, 2) <> "~$" Then
                    If .Name <> ThisWorkbook.Name Then
                        Application.StatusBar = .Name
                        Job_file f, shSum
                        Application.StatusBar = False
                    End If
                End If
            End If
        End With
        DoEvents
    Next
    Application.CutCopyMode = False
End Sub
Sub Job_file(ByVal sFull As String, shSum As Worksheet)
    Dim wb As Workbook
    Set wb = Workbooks.Open(sFull)
    Job_sheet wb.Sheets(1), shSum
    wb.Close False
End Sub
Sub Job_sheet(sh As Worksheet, shSum As Worksheet)
     
    Dim rTo As Range
    With ThisWorkbook.Sheets(1)
'        If .Cells(1, 1).Value = "" Then
'            Set rTo = .Cells(1, 1)
'        Else
            Set rTo = .Cells(.Rows.Count, 1).End(xlUp).Cells(2, 1)
'        End If
    End With
     
    With sh
        Dim y As Long
        y = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range(.Cells(7, 1), .Cells(y, 5)).AutoFilter Field:=5
        y = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Rows("8:" & y).Copy rTo
        If first_file Then
            .Rows("8:" & y).Copy
            rTo.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            first_file = False
        End If
    End With
    Application.CutCopyMode = False
End Sub
Sub Job_sum_sheet1(shSum As Worksheet)
    With shSum
        .Columns("A:E").Delete Shift:=xlToLeft
    End With
End Sub
Sub Job_sum_sheet2(shSum As Worksheet)
    With shSum
        Dim y As Long
        y = .Cells(.Rows.Count, 1).End(xlUp).Row
        Dim a As Variant
        a = .Range(.Cells(1, 1), .Cells(y, 1))
        For y = UBound(a, 1) To 2 Step -1
            If a(y, 1) = "" Then
                .Rows(y).Delete
            End If
        Next
         
        .Parent.Activate
        .Select
        .Cells(1, 1).Select
        .Range(.Cells(1, 1), .Cells(y, 5)).AutoFilter Field:=5, Criteria1:="+"
        .Columns("E:E").EntireColumn.Hidden = True
         
        Application.DisplayAlerts = False
        .Parent.Save
        Application.DisplayAlerts = True
    End With
End Sub

Sub Копировать_ячейки()
' Сочетание клавиш: Ctrl+ч

     Range("A8:E100").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Трубопроводы межцеховые.xlsx").Activate ' текст в кавычках=имя файла сводного отчёта
    Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial
   End Sub

For y = UBound(a, 1) To 2 Step -1

    Set shSum = ThisWorkbook.Sheets(1)    Job_sum_sheet1 shSum

    Job_sum_sheet2 shSum    Application.ScreenUpdating = True

For Each c In .Range(.Cells(8, 5), .Cells(y, 5))

Sub Корректировка_Отчёта2()
'
' Корректировка_Отчёта2 Макрос
'
' Сочетание клавиш: Ctrl+ы
'
    Range("E9:E100").Select
    Selection.FillRight
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 57
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 53
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    ActiveSheet.Range("$A$7:$E$52").AutoFilter Field:=1
    Range("E9:E100").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    ActiveSheet.Range("$A$7:$E$52").AutoFilter Field:=5, Criteria1:="<>"
    ActiveWorkbook.Save
End Sub