V příloze posílám vzor.

Private Sub Worksheet_Change(ByVal Target As Range)
Set aCell = Range("A1")
Set aCell = Range("A2")
Set aCell = Range("A3")
Set aCell = Range("A4") což nejde

If Not Intersect(Target, aCell) Is Nothing Then
Range("5:5").EntireRow.Hidden = aCell = "1" SKRYJE SE ŘÁDEK 5 KDYŽ ZADÁM HODNOTU 1 DO BUŇKY A1
Range("6:6").EntireRow.Hidden = aCell = "2" SKRYJE SE ŘÁDEK 6 KDYŽ ZADÁM HODNOTU 2 DO BUŇKY A2
Range("7:7").EntireRow.Hidden = aCell = "3" SKRYJE SE ŘÁDEK 7 KDYŽ ZADÁM HODNOTU 3 DO BUŇKY A3
Range("8:8").EntireRow.Hidden = aCell = "4" SKRYJE SE ŘÁDEK 8 KDYŽ ZADÁM HODNOTU 4 DO BUŇKY A4
End If
End Sub

U BUŇKY A1 ZADÁM HODNOTU 1 TAK SE SKRYJE ŘÁDEK 5.
U BUŇKY A2 ZADÁM HODNOTU 2 TAK by SE měl SKRYT ŘÁDEK 6 COŽ NEJDE