Цикл Do While не выполняет задачу

Question

создали этот макрос, который позволяет пользователю выбирать номера сценариев с помощью InputBox, и теперь я пытаюсь запустить сценарии и записать какие-то результаты.Это очень полезно в тех случаях, когда мне может потребоваться запустить более 50 сценариев.Номера сценариев вызывают смещения в моем входном листе, где он анализирует результаты.Это прекрасно работает в режиме прерывания, но когда я на самом деле запускаю макрос как «пользователь», он работает только для первого сценария, а не для остальных

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