The ad hoc solution
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G5")) Is Nothing Then
If UCase(Target) = "Y" Then
Rows("8:11").EntireRow.Hidden = True
Else
Rows("8:11").EntireRow.Hidden = False
End If
If UCase(Target) = "No" Then
Rows("14:15").EntireRow.Hidden = True
Else
Rows("14:15").EntireRow.Hidden = False
End If
If UCase(Target) = "U" Then
Rows("18:19").EntireRow.Hidden = True
Else
Rows("18:19").EntireRow.Hidden = False
End If
End If
End Sub