Мне посчастливилось получить ответ от кого-то на предыдущий вопрос, который я задал.Посмотреть здесь.

Единственное, с чем я борюсь - это создание цикла, который завершит макрос при достижении пустой ячейки в столбце B. Я пытался прочитать другой код, но на самом деле ничего для меня не нажималось (если, кроме циклов, End With Loops и т. Д. ). Это последний шаг к моему макросу, и мне бы очень хотелось узнать, как создать циклы и / или решить эту проблему для меня. Спасибо как всегда. Люди на этом сайте бесподобны!

Sub Redirect()
Dim IE As Object
Dim doc As Object

Set IE = CreateObject("InternetExplorer.Application")

With IE
    .Visible = True
    .Navigate "https://...."

    Do Until .ReadyState = 4: DoEvents: Loop

    With .Document.forms("digiSHOP")
        .elements("OldUrl").Value = Range("A2")
        .elements("NewUrl").Value = Range("B2")
        .submit
    End With

    Do Until .ReadyState = 4: DoEvents: Loop
    Do While .Busy: DoEvents: Loop

End With
End Sub