Error "se ha producido el error '9' en tiempo de ejecución subíndice fuera del intervalo"

Hola,

Tengo una macro en excel que me da un fallo (abajo pongo la macro).

Lo raro es que en mi antiguo portátil con Office 2013 me iba bien pero en el que tengo ahora (Office 2016) me sale ese fallo.

¿Alguna ayuda?

Gracias,

Un saludo,

Sub RxnVapPressCritical()
'
' critical Macro
' Macro recorded 09/11/98 by Steve Rowe
'

'
    Range("B31").GoalSeek Goal:=0, ChangingCell:=Range("B30")
    Range("C31").GoalSeek Goal:=0, ChangingCell:=Range("C30")
    SolverOk SetCell:="$P$26", MaxMinVal:=3, ValueOf:="0", ByChange:= _
        "$P$23,$P$24,$P$27"
    SolverLoad LoadArea:="$O$40:$O$51"
    SolverOptions MaxTime:=100, Iterations:=100, Precision:=0.000001, AssumeLinear _
        :=False, StepThru:=False, Estimates:=2, Derivatives:=2, SearchOption:=2, _
        IntTolerance:=5, Scaling:=False, Convergence:=0.001, AssumeNonNeg:=True
    SolverOk SetCell:="$O$26", MaxMinVal:=3, ValueOf:="0", ByChange:= _
        "$O$23,$O$24,$O$27"
    SolverSolve
    
    SolverOk SetCell:="$O$26", MaxMinVal:=3, ValueOf:="0", ByChange:= _
        "$O$23,$O$24,$O$27"
    SolverLoad LoadArea:="$Q$40:$Q$51"  --> AQUÍ SE PRODUCE EL ERROR
    SolverOptions MaxTime:=100, Iterations:=100, Precision:=0.000001, AssumeLinear _
        :=False, StepThru:=False, Estimates:=2, Derivatives:=2, SearchOption:=2, _
        IntTolerance:=5, Scaling:=False, Convergence:=0.001, AssumeNonNeg:=True
    SolverOk SetCell:="$P$26", MaxMinVal:=3, ValueOf:="0", ByChange:= _
        "$P$23,$P$24,$P$27"
    SolverSolve
End Sub