Function Pauza(Tm As Double)
    vrm! = Timer
    Do While Timer - vrm! < Tm: DoEvents: Loop
End Function

Sub WebScraping()

    Dim x As Integer, p As Integer, MyTable As Object    'MSHTML.HTMLTable
    On Error Resume Next
    i = 1
    Do While Лист1.Cells(i, 1) <> ""
      If Лист1.Cells(i, 4) = "" Then
        Set IE = CreateObject("InternetExplorer.Application")
        IE.Visible = False
        With IE
           t1 = Replace(Лист1.Cells(i, 1), " ", "+")
          .Navigate "https://geocode-maps.yandex.ru/1.x/?geocode=" & t1
           
           Pauza (0.25)
           For Each MyTable In .Document.getElementsByTagName("pos")
          
             Лист1.Cells(i, 4) = MyTable.innertext
             Лист1.Cells(i, 2) = Mid(MyTable.innertext, InStr(1, MyTable.innertext, ">") + 1, InStr(1, MyTable.innertext, " ") - InStr(1, MyTable.innertext, ">") - 1)
             Лист1.Cells(i, 3) = Mid(MyTable.innertext, InStr(1, MyTable.innertext, " ") + 1, InStr(1, MyTable.innertext, "</") - InStr(MyTable.innertext, " ") - 1)
             If Лист1.Cells(i, 4) <> "" Then Exit For
             DoEvents
           Next
           try = try + 1
           If (Лист1.Cells(i, 4) <> "" Or try > 2) Then
             i = i + 1
             try = 0
           End If
        End With
        IE.Quit
        Set EI = Nothing
      Else
        i = i + 1
      End If
    Loop

End Sub