Hi Ayo,

I would say Keep It Simple:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, rngAll As Range
Application.ScreenUpdating = False


If Target.Address = "$E$3" Or Target.Address = "$E$79" Then
Application.EnableEvents = False
For Each c In Me.Range("B5:B77")
If c.Value < Range("E3").Value And c.Value <
Range("E79").Value Then
c.EntireRow.Hidden = True
End If
Next c


For Each c In Me.Range("B81:B153")
If c.Value < Range("E3").Value And c.Value <
Range("E79").Value Then
c.EntireRow.Hidden = True
End If
Next c
Application.EnableEvents = True
End If
Application.ScreenUpdating = True
End Sub

HTH,

Wouter