Auto unhide rows if formula returns a value >0

Right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Calculate()
Dim i As Long
For i = 7 To 12
    Rows(i).Hidden = Range("E" & i).Value <= 0
Next i
For i = 40 To 98
    Rows(i).Hidden = Range("E" & i).Value <= 0
Next i
End Sub