Búsqueda automática de objetivos en el rango de celdas

Quiero aplicar la búsqueda de objetivos en varias filas cuando hay un cambio en cualquier celda de la hoja de trabajo. Quiero aplicar esto de la fila 7 a la fila 11. El primer problema que tengo es que Excel falla cada vez que ejecuto esto. Estoy empezando a aprender VBA por lo que cualquier ayuda es muy apreciada. ¡Gracias!

Mi código está abajo:

Option Explicit

Private Sub Worksheet_Calculate()
CheckGoalSeek
End Sub

Private Sub CheckGoalSeek()
Range("T7").GoalSeek Goal:=0, ChangingCell:=Range("V7")
End Sub

Respuestas a la pregunta(1)

Su respuesta a la pregunta