做While循环不执行任务

Question

已创建了此宏，该宏允许用户使用InputBox选择方案编号，现在我试图运行方案并记录某种结果。这对于我可能想同时运行+50个场景的情况非常有用。方案编号在我的输入表中触发OFFSET，并在其中分析结果。这在中断模式下可以完美运行，但是当我实际以“用户”身份运行宏时，它仅适用于第一种情况，而不适用于其余情况

Sub sbScenarioAnalysis()
Sheets("results").Select
Range("J24").Select
Do While ActiveCell.Value <> Empty

    Range("ScenarioNumber").Value = ActiveCell.Value

      Application.Calculate
        If Not Application.CalculationState = xlDone Then
        ActiveCell.Offset(1, 0) = Range("TL")
        ActiveCell.Offset(2, 0) = Range("ML")
        End If
    ActiveCell.Offset(0, 1).Select
Loop
End Sub