Option Explicit

Sub getMS()
    Dim ws As Worksheet
    Dim feed As String, feedOdds As String
    Dim rows As Variant, rowParts As Variant
    Dim i As Long, j As Long, n As Long
    Dim tz As Long, dz As Long
    Dim cacheMatch As String, cacheOdds As String
    Dim out() As Variant
    Dim hyperlinkArr() As Variant
    Dim oddsDict As Object
    Dim matchID As String
    
    Set ws = ThisWorkbook.Worksheets("siyahi")
    ws.Cells.Clear
    
    tz = ThisWorkbook.Worksheets("START").Range("T2").Value - 1
    dz = ThisWorkbook.Worksheets("START").Range("V2").Value - 8
    
    cacheMatch = ThisWorkbook.Path & "\cache_match.txt"
    cacheOdds = ThisWorkbook.Path & "\cache_odds.txt"
    
    ' --- Загрузка матчей с кешем ---
    feed = LoadFeedWithCache("https://d.flashscore.co.ke/x/feed/f_3_" & dz & "_" & tz & "_ru_1", cacheMatch, 5)