Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyCell As String
MyCell = "A2" 'Cell of interest
If Intersect(Range(MyCell), Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
For i = 4 To 10 'Define range of rows to hide/unhide
Cells(i, 1).EntireRow.Hidden = (Cells(i, 1).Value >= Range(MyCell).Value)
Next
Application.EnableEvents = True
End Sub