Environ("TEMP")

"crm.deal.list.json?ORDER[STAGE_ID]=asc&FILTER[CLOSED]=N&SELECT=ID"

Sub ShowTable(txtRange As String)
    strHTML = ConvertRangeToHTMLTable(Range(txtRange))
    UserForm1.WebBrowser1.Navigate "about:blank"
    DoEvents
    With UserForm1.WebBrowser1.Document
        .Open
        .Write strHTML
        .Close
    End With
    UserForm1.Show
End Sub

    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate "https://www.marathonbet.ru/su/betting/11?periodGroupAllEvents=24"
    
    While ie.ReadyState <> 4
        DoEvents
    Wend
    
    Set HTMLDocument = ie.Document
    
    For Each cat In HTMLDocument.GetElementsByClassName("category-container")
        For Each champ In cat.GetElementsByClassName("category-label-link")
            For Each nameh In cat.GetElementsByClassName("bg coupon-row")
                Cells(Cells(Rows.Count, 2).End(xlUp).Row + 1, 1) = champ.innertext
                Cells(Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) = nameh.getAttribute("data-event-name")
            Next nameh
        Next champ
    Next cat
    
    Set HTMLDocument = Nothing
    Set ie = Nothing

Application.FileDialog(msoFileDialogFilePicker)

sh.Cells(i, 16) = CallHTTPRequest(strURL)