Hola, porqué una macro no tiene en cuenta Solveradd

Estoy realizando una macro para minimizar valores. No consigo que tenga en cuenta la linea subrayada

Private Sub CommandButton1_Click()
pesosi = Worksheets("Hoja1").Range("Y2:AQ2")
For fila = 34 To 2132
Worksheets("Hoja1").Cells(3, 46) = fila
inicio = fila - 29
matriz = Worksheets("Hoja1").Range(Cells(inicio, 3), Cells(fila, 22))
Worksheets("Hoja1").Range("Y5:AR34") = matriz
Worksheets("Hoja1").Range("Y4:AQ4") = pesosi
Worksheets("Hoja1").Activate
SolverReset
SolverOptions Precisión = 0.001
SolverOk SetCell:=Range("AU6"), MaxMinVal:=2, ByChange:=Range("Y4:AQ4")
SolverAdd cellRef:=Range("X4"), relation:=2, formulaText:=1
SolverAdd cellRef:=Range("Y4:AQ4"), relation:=3, formulaText:=0
SolverSolve UserFinish:=True
SolverFinish KeepFinal:=1
Tracking = Worksheets("Hoja1").Range("Y4:AQ4")
Worksheets("Hoja1").Range(Cells(fila + 1, 25), Cells(fila + 1, 43)) = Tracking

Next fila

En X4 está la suma de los valores que hay en el rango "Y4:AQ4" y ésta debe ser igual a uno. Cuando lo corro no me sale igual a uno.