Excel - arreglar macros para buscar al cambiar 1 celda

Hola de nuevo
No consigo que al escribir un nombre en A9 se ejecute el código que actualizaría los datos de AT4:AW4 Y ​DE BH4:BK4

Si funciona parte, si en D9 se escribe un 1, pero machaca la fórmula que contiene
Adjunto libro con ejemplo

Muchísimas gracias

• Libro1.rar(72,3 KB)

Este es el código que tiene y debería funcionar al haber algún cambio en las celdas D9 y E9, que cambian a la vez cuando se cambia el nombre en A9:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Application.EnableEvents = True
'Casos para las PREGUNTAS ----------------------
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$D$9" Then
Select Case Target.Value
Case 1 To 1: PREGUNTA1
Case 2 To 300: PREGUNTA2
End Select
End If
End Sub

'MACROS PREGUNTAS
Sub PREGUNTA1()
Range("BN2:BQ2").Select
Selection.Copy
Range("At4").Select
ActiveSheet.Paste
End Sub

Sub PREGUNTA2()
Application.ScreenUpdating = False
Range("BS2:BV2").Select
Selection.Copy
Range("At4").Select
ActiveSheet.Paste
End Sub



'Casos para los RESPUESTAS ----------------------
' If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$E$9" Then
Select Case Target.Value
Case 1 To 1: RESPUESTA5
Case 2 To 300: RESPUESTA95
End Select
End If
End Sub


'MACROS RESPUESTAS
Sub RESPUESTA1()
Range("BX2:CA2").Select
Selection.Copy
Range("BH4").Select
ActiveSheet.Paste
End Sub
Sub RESPUESTA2()
Application.ScreenUpdating = False
Range("CC2:CF2").Select
Selection.Copy
Range("BH4").Select
ActiveSheet.Paste
End Sub

No sé porqué alguna vez funcionó una parte al abrir el libro y al día siguiente ya no va nada como el anterior.

Hay dos posibles soluciones:

Opción - 1


Opción - 2


Saludos.
\\//_

Otra respuesta de 10.

Buen día.