Sub Макрос3()
'
' Макрос3 Макрос
'
' Сочетание клавиш: Ctrl+й
'
'    NameList = "": bStop = False
    ThisWorkbook.Worksheets("сумма").[a1].CurrentRegion.Offset(1).Clear'Очищаем лист
    For Each Sh In Array(Sheets("Лист2"), Sheets("Лист4"))
'        ВыборЛиста.Show (vbModal)
'        If bStop Then GoTo сюда:
        With Sh
            lLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
            .Range("A2:D" & lLastRow).Copy Sheets("сумма").Range("A" & Sheets("сумма").Cells(Sheets("сумма").Rows.Count, 1).End(xlUp).Row + 1)
        End With
        Application.CutCopyMode = False
    Next
сюда:
    With Application.ThisWorkbook.Worksheets("сумма")
        .AutoFilter.Sort.SortFields.Clear
        .AutoFilter.Sort.SortFields.Add _
            Key:=.Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With .AutoFilter.Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    
        .Range("E2:E" & .Cells(.Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=IFERROR(-LOOKUP(2,1/(R1C2:R[-1]C[-3]=RC[-3]),R1C4:R[-1]C[-1])+RC[-1],0)"
    End With
End Sub