Макрос не работает - кривая приемлемости экономической эффективности (CEA C)

Question

Надеюсь, кто-нибудь может помочь с моим макросом.

Макрос в настоящее время копирует вероятности экономической эффективности (см. Столбцы RangeB [/ B]) вместо того, чтобы связывать его с WTP при каждой сумме от 0 до 50 000 фунтов стерлингов (перечислено в строках D15: D65). для получения кривой приемлемости затрат-эффективности (CEA C) на лекарство (DQ15: DT65).

Мне нужно создать CEA C, который показывает, какое медицинское вмешательство наиболее рентабельно.

В настоящее время макрос копирует каждую из вероятностей экономической эффективности (см. Столбцы RangeB [ / B]) и генерирует одно и то же значение в столбце CEA C для каждого медицинского вмешательства.

Пытаясь прикрепить файл Excel к этому сообщению ...

Ниже приведен мой макрос для CEA C:

Sub RunCEAC()
'
' Macro for running the CEAC
'

'Create new variables for Willingess to Pay (WTP) and Cost-effectiveness probabilities
Dim Willingness_to_Pay__WTP As Double
Dim CE_Probabilities As Double

Sheets("PSA_&_EVPI").Select
'Do 51 times for all WTP
For i = 1 To 51

'Copy new WTP
    WTP = Cells(14 + i, 118)
    Range("DN7").Value = WTP

'Copy CE_Probabilities to the column
    CE_Probabilities = Range("DF7")
    Cells(14 + i, 121).Value = CE_Probabilities
    CE_Probabilities = Range("DG7")
    Cells(14 + i, 122).Value = CE_Probabilities
    CE_Probabilities = Range("DH7")
    Cells(14 + i, 123).Value = CE_Probabilities
    CE_Probabilities = Range("DI7")
    Cells(14 + i, 124).Value = CE_Probabilities

Next i

End Sub