"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)

#If Win64 Then
    Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As LongLong, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As LongLong, ByVal lpfnCB As LongLong) As LongLong
#Else
    #If VBA7 Then
        Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As LongPtr, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As LongPtr) As LongPtr
    #Else
        Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
    #End If
#End If

Sub Загрузка_Часов()
    Dim URL As String, DestinationFolder As String
    Dim OWB As Workbook
    Dim Rng As Range
    Dim C As Integer
    Dim R As Integer
    With ThisWorkbook.Sheets(1)
        R = .Cells(27, 3)
        For C = 2 To 18 Step 4
            URL = "http://www.atsenergo.ru/dload/calcfacthour_regions/202001_VORNEGEN_20_calcfacthour.xls" '.Cells(R, C) '
            DestinationFolder = ThisWorkbook.Path & "\202001_VORNEGEN_20_calcfacthour.xls"
            If URLDownloadToFile(0, URL, DestinationFolder, 0, 0) = 0 Then
                DoEvents
                Set OWB = Workbooks.Open(DestinationFolder)
                Set Rng = OWB.Sheets(1).Range("B9:B32")
                .Range(.Cells(R + 1, C), .Cells(R + 1 + 23, C)).Value = Rng.Value
                OWB.Close
            End If
        Next
    End With
End Sub