Sub Obnul() 'для кнопки обнулить
  Range("A:E").Clear
End Sub

Sub Rasch() 'для кнопки рассчитать
  With Sheets("Лист1")
    .AutoFilterMode = False
    .Outline.ShowLevels RowLevels:=2, ColumnLevels:=2
    .UsedRange.AutoFilter Field:=4, Criteria1:="<>"
    .AutoFilter.Range.Copy Range("A1")
    .AutoFilterMode = False
  End With
End Sub