Macro para ocultar y mostrar filas según condición de una formula.

Llevo varios días mirando por internet para encontrar una macro que me oculte solo una serie de filas en función a una serie de resultados obtenidos en otras celdas de la misma hoja que están previamente formulas. En la hoja "Resumen" tengo la celda "L2" que al ingresar el código de cliente me arroja automáticamente en las celdas E10, E11, E13, E14, I10, I11, I12 y I13 la respuesta de "SI o "NO" y en función a estos resultados me gustaría ocultar o mostrar las filas. Si en la celda "L2" no indico nada, todas las celdas se quedan en blanco y se debería mostrar todo nuevamente. He adaptado esta macro, pero tengo el problema de que con celdas formuladas no funciona, solo lo hace si le escribo directamente. Además, cuando dejo el formulario en blanco, me deja las filas ocultas de la ultima consulta. Ruego la ayuda de un experto para adaptar la macro para que funcione automáticamente. Un millón de gracias

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("I10").Address Then
    If UCase(Target.Value) = "NO" Then
        Range("A71:A77").EntireRow.Hidden = True
        Else
        Range("A71:A77").EntireRow.Hidden = False
    End If
End If
If Target.Address = Range("I11").Address Then
    If UCase(Target.Value) = "NO" Then
        Range("A68:A70").EntireRow.Hidden = True
        Else
        Range("A68:A70").EntireRow.Hidden = False
    End If
End If
If Target.Address = Range("I12").Address Then
    If UCase(Target.Value) = "NO" Then
        Range("A78:A107").EntireRow.Hidden = True
        Else
        Range("A78:A107").EntireRow.Hidden = False
    End If
End If
If Target.Address = Range("I13").Address Then
    If UCase(Target.Value) = "NO" Then
        Range("A108:A129").EntireRow.Hidden = True
        Else
        Range("A108:A129").EntireRow.Hidden = False
    End If
End If
If Target.Address = Range("E13").Address Then
    If UCase(Target.Value) = "NO" Then
        Range("A61:A67").EntireRow.Hidden = True
        Else
        Range("A61:A67").EntireRow.Hidden = False
    End If
End If
If Target.Address = Range("E14").Address Then
    If UCase(Target.Value) = "NO" Then
        Range("A57:A60").EntireRow.Hidden = True
        Else
        Range("A57:A60").EntireRow.Hidden = False
    End If
End If
If Target.Address = Range("E10").Address Then
    If UCase(Target.Value) = "NO" Then
        Range("A19:A45", "A55:A56").EntireRow.Hidden = True
        Else
        Range("A19:A45", "A55:A56").EntireRow.Hidden = False
    End If
End If
If Target.Address = Range("E11").Address Then
    If UCase(Target.Value) = "NO" Then
        Range("A46:A54").EntireRow.Hidden = True
        Else
        Range("A46:A54").EntireRow.Hidden = False
    End If
End If
End Sub