Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
If Target.Value = "NO" Then
Rows("21:24").EntireRow.Hidden = True
Rows("14:20").EntireRow.Hidden = False
Else
Rows("21:24").EntireRow.Hidden = False
Rows("14:20").EntireRow.Hidden = True
End If
End If
End Sub