Как остановить сброс значения поля ввода веб-страницы?

Question

Я построил указанный макрос с целью заполнения некоторых полей ввода значениями. Распределение значений работает, но как только я перехожу в другое поле (через VBA) или нажимаю на недавно измененное значение (вручную, на веб-странице), оно сбрасывается к исходному значению. Как сделать так, чтобы значения остались, чтобы потом я мог нажать кнопку «Отправить» и получить новые значения?

Пример выделенного значения: "objCollection (i) .Value =" 2000 ""

Private Sub Problem()
Dim i As Long
Dim IE As Object
Dim Doc As Object
Dim objElement As Object
Dim objCollection As Object
Dim buttonCollection As Object
Dim valeur_heure As Object


' Create InternetExplorer Object
Set IE = CreateObject("InternetExplorer.Application")
' You can uncoment Next line To see form results
IE.Visible = True

' Send the form data To URL As POST binary request
IE.navigate "webpage.com"

' Wait while IE loading...
While IE.Busy
        DoEvents
Wend

Application.Wait (Now + TimeValue("0:00:06"))

IE.document.getElementsByClassName("ng-scope button-standard button-blue 
head-action-button")(0).Click

'Set the value to invest
Set objCollection = IE.document.getElementsByTagName("input")
i = 0
While i < objCollection.Length
    If objCollection(i).className = "stepper-value ng-pristine ng-untouched ng-valid ng-scope ng-not-empty ng-valid-currency-validator" Then
        ' Set the value
        objCollection(i).Value = "2000"
    End If
    i = i + 1
Wend

'Open the Stop Loss Window
IE.document.getElementsByClassName("box-tab-value ng-binding ng-scope") 
   (0).Click
    Set objCollection = IE.document.getElementsByTagName("input")
            objCollection(2).Value = "-1100"
            objCollection(2).Click  'Does not help
            objCollection(2).Select  'Does not help
IE.document.getElementsByClassName("stepper-plus")(1).Click
IE.document.getElementsByClassName("stepper-minus")(1).Click
    End Sub