=Лист1!$AE$2:$AE$&ДВССЫЛ(AE1)
=СЦЕП("Лист1!$AE$2:$AE$";Лист1!$AE$1)
=ДВССЫЛ(СЦЕП("Лист1!$AE$2:$AE$";Лист1!$AE$1))

1.37[u]1.44
5
5.7[d]5.35
1.33[d]1.27
3.3[u]3.34
1.4[u]1.45
2.75[d]2.69
1.77[d]1.65
1.94[u]2.25
1.1[d]1.08
6[u]7
2.04[u]2.1
1.69[u]1.73


3.4[d]3.3
1.27[u]1.28

n = InStr(1, response1, "asian-handicap¬") + 15
    k = InStr(n, response1, "1st Half¬")
    responseF = Mid(response1, n, k - n)
    'форы 2.5
    Sheets("Коэффициенты").Cells(4, 1) = responseF
    n = InStr(1, responseF, ChrW(247) & "2.5¬XH") - 1
On Error GoTo 50:
    k = InStr(n, responseF, "¬OG")
    responseF1_p25a = Mid(responseF, n, k - n)
    n = InStr(1, responseF1_p25a, "¬XB") + 4
    k = InStr(n, responseF1_p25a, "¬XC")
    responseF1_p25 = Mid(responseF1_p25a, n, k - n)
    'форы 2.5
    n = InStr(1, responseF, ChrW(247) & "2.5¬XH") - 1
    k = InStr(n, responseF, "¬OG")
    responseF2_m25a = Mid(responseF, n, k - n)
    n = InStr(1, responseF2_m25a, "¬XC") + 4
    responseF2_m25 = Mid(responseF2_m25a, n)
50:

    n = InStr(1, response, "U+00F7" & "1.5¬XH") - 1  'я понимаю эта строка не верно записана, я для примера записал может знаете как это соединить
    k = InStr(n, response, "¬OG")
    response = Mid(response, n, k - n)

Sub ggg()
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    oXMLHTTP.Open "GET", "https://d.soccerstand.com/x/feed/df_hh_1_SCuAX4DJ_en_1_", False
    oXMLHTTP.setRequestHeader "X-Fsign", "SW9D1eZo"
    oXMLHTTP.send
    response1 = oXMLHTTP.responseText
    Set oRegExp = CreateObject("VBScript.RegExp")
    oRegExp.Global = True
    oRegExp.MultiLine = False
    n = InStr(1, response1, "Head-to-head matches") + 20
    k = InStr(n, response1, "¬~KA")
    responseALL = Mid(response1, n, k - n)                                   ' все лички получили
        
        KJhome_n = InStr(1, responseALL, "¬KJ") + 4
        KJhome_k = InStr(KJhome_n, responseALL, "¬KK")
        KJhome = Mid(responseALL, KJhome_n, KJhome_k - KJhome_n)             'хозяева
          
    Cells(1, 1) = responseALL
    Cells(2, 1) = KJhome
   
End Sub

Sub filter___A()

    ActiveCell.Copy
filter_A = ActiveCell.Value
filter_Am = filter_A - 0.1
filter_Ab = filter_A + 0.1

ActiveSheet.Range("My_Diapazon").AutoFilter Field:=1, Criteria1:=">=" & filter_Am, Operator:=xlAnd, Criteria2:="<=" & filter_Ab
Application.CutCopyMode = False

End Sub

Sub asdasd()
    Dim sName As String, nName As String, dName As String, wsTmpSh As Worksheet
    nName = Range("L10").Value
    dName = Range("L11").Value    'тут дата, её надо использовать как имя при создании папки в директории файла в формате "dd/mm"
    aName = Range("L12").Value
    Range("A1:C10").Select
    With Selection
        .CopyPicture
        Set wsTmpSh = ThisWorkbook.Sheets.Add
        sName = ActiveWorkbook.Path & "\" & aName & "_" & Format(dName, "hh mm") & "_" & nName
        With wsTmpSh.ChartObjects.Add(0, 0, .Width, .Height).Chart
            .ChartArea.Border.LineStyle = 0
            .Parent.Select
            .Paste
            .Export Filename:=sName & ".jpg", FilterName:="JPG"
            .Parent.Delete
        End With
    End With
    wsTmpSh.Delete
End Sub

Sub Range_to_Picture9()
    Dim sName As String, nName As String, dName As String, wsTmpSh As Worksheet
    nName = Sheets("Анализ").Range("AO1").Value
    dName = Sheets("Анализ").Range("K2").Value
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Range("A1:AV53").Select
    With Selection
        .CopyPicture
        Set wsTmpSh = ThisWorkbook.Sheets.Add
        sName = ActiveWorkbook.FullName & "_" & Format(dName, "dd/mm/yy hh mm") & "_" & nName
        With wsTmpSh.ChartObjects.Add(0, 0, .Width, .Height).Chart
            .ChartArea.Border.LineStyle = 0
            .Parent.Select
            .Paste
            .Export Filename:=sName & ".jpg", FilterName:="JPG"
            .Parent.Delete
        End With
    End With
    wsTmpSh.Delete
    MsgBox "скрин ОК!"
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Range("A1").Select
End Sub

Sub гиперссылки ()
   Sheets("Журнал.").Select                                                                
   Range("D1").Select
   Selection.Hyperlinks(1).Follow
   If Cells(1, 1) = "1" Then Макрос1
End Sub

Sub Макрос6()

    Application.Run "'Книга1.xlsm'!Макрос1"
    Application.Run "'Книга1.xlsm'!Макрос2"
    Application.Run "'Книга1.xlsm'!Макрос3"
    Application.Run "'Книга1.xlsm'!Макрос4"
    Application.Run "'Книга1.xlsm'!Макрос5"
'
End Sub