Fjerne linier med 0.

Denne makro skjuler (gruperer) de rækker der har 0 i kolonne E:

Sub CollapseE()
'Remove grouping
Dim LastRow, x As Long
LastRow = UsedRange.Rows(UsedRange.Rows.Count).Row
Application.ScreenUpdating = False
ActiveSheet.Outline.ShowLevels RowLevels:=2
Cells.Select
On Error GoTo a
Selection.Rows.Ungroup
a:
For x = 2 To LastRow
    If Range("E" & x) = 0 Then
    Rows(x).Group
    End If
Next
ActiveSheet.Outline.ShowLevels RowLevels:=1
Range("E1").Select
Application.ScreenUpdating = True
End Sub

Her er en lynhurtig makro, til formålet, der benytter 'Union' metoden:
http://www.EXCELGAARD.dk/Bib/Union/Eksempel/

Eksemplet tester på kolonne B, men det kan du let lave om i linje 3 i koden.
Eksemplet tester på tal mindre end 0 (<0), men det kan du let lave om til lig nul (=0) i linje 10 i koden.