Private Sub CommandButton1_Click()
Dim r As Range, sh As Worksheet
    Application.EnableEvents = False
    Set sh = Sheets("Лист4")
    sh.Range("A7:H200").Delete Shift:=xlUp
    With Me
    .Outline.ShowLevels rowLevels:= 4 
    .Range("A7:H920").AutoFilter  1 , "a"
    .Range("A7:H920").SpecialCells( 12 ).Copy sh.[A7]
    .Range("A7:H920").SpecialCells( 12 ).Copy
    sh.Range("A7").PasteSpecial  11 
    .AutoFilterMode =  0 
    End With
    Set r = sh.[b65536].End(xlUp).Offset( 1 )
    r.Value = "Итого": r( 1 ,  5 ).Formula = "=Sum(F8:F" & r.Row -  1  & ")"
    r( 1 ,  5 ).AutoFill sh.Range(r( 1 ,  5 ), r( 1 ,  7 ))
    ThisWorkbook.Save
    Application.EnableEvents = True
End Sub