Sub browse()
    Dim site As New MSXML2.XMLHTTP60
    Dim txt As New MSHTML.HTMLDocument
    Dim team As MSHTML.IHTMLElement
    Dim teams As MSHTML.IHTMLElementCollection
    Dim team1 As MSHTML.IHTMLElement
    Dim d%, team3$, HTML$
    Dim parser As New RegExp
    Dim last%
    site.Open "GET", "https://www.marathonbet.ru/su/betting/11?periodGroupAllEvents=24", False
    site.send

    txt.body.innerHTML = site.responseText

    With parser    '
        .Pattern = "data-event-name.+"
        .Global = True
        .IgnoreCase = True
        With .Execute(txt.body.innerHTML)
            For d = 0 To .Count - 1
                team3 = .Item(d)
                Cells(d + 2, 4) = team3
            Next d
        End With
    End With
    last = 0
    URL = ""
    Do
        last = last + 1
        URL = "https://www.marathonbet.ru/su/betting/11?periodGroupAllEvents=24&page=" & last & _
        "&pageAction=getPage"
        site.abort
        site.Open "GET", URL, False
        site.send
        HTML = site.responseText

        If InStr(1, HTML, "{""prop"":""hasNextPage"",""val"":false}]", vbTextCompare) > 0 Then Exit Do

    Loop

End Sub

{
   "tables": [{
      "name": "name",
      "displayname": "Клиент",
      "description": "Клиент",
      "fields": [{
         "name": "name",
         "type": "SysString",
         "displayname": "Наименование/Фио"
      }]
   },
   {
      "name": "name",
      "displayname": "Клиент",
      "description": "Клиент",
      "fields": [{
         "name": "name",
         "type": "SysString",
         "displayname": "Наименование/Фио"
      }]
   }]
}

Sub Test()
    Dim Sh As Worksheet, Sh1 As Worksheet, _
        lat_a As Double, lon_a As Double, _
        lat_b As Double, lon_b As Double
    Set Sh = ThisWorkbook.Worksheets(2)
    LastRow = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row
    dx = Sh.Range("A1:C" & LastRow)
    Set Sh = ThisWorkbook.Worksheets(1)
    LastRow = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row
    dx1 = Sh.Range("A1:B" & LastRow)
    For n = 2 To UBound(dx)
        lat_a = dx(n, 1)
        lon_a = dx(n, 2)
        For i = 2 To UBound(dx1)
            lat_b = dx1(i, 1)
            lon_b = dx1(i, 2)
            If Distance(lat_a, lon_a, lat_b, lon_b) <= 500 Then
             Sh.Cells(i, 3) = dx(n, 3)
            End If
        Next

    Next
End Sub
Function Distance(ByVal lat_a As Double, ByVal lon_a As Double, _
            ByVal lat_b As Double, ByVal lon_b As Double) As Double
    R = 6371210#
    Distance = Math.Abs(WorksheetFunction.Acos(Sin(lat_a) * Sin(lat_b) + Cos(lat_a) * _
                        Cos(lat_b) * Cos(lon_a - lon_b)) * R)
End Function