CALCULATE
        ([Сумма по столбцу Сумма сч.ф];
         FILTER(ALL('Договор');
         'Моя таблица'[Договор] && 'Моя таблица'[Индекс]<=MAX('Моя таблица'[Индекс]))
)

Option Explicit

Sub F()

    Dim req As WinHttpRequest, re As RegExp, mc As MatchCollection
    Dim sourceAmount As String
    Dim sDate As String
    Dim sURL As String
    Dim html As String
    Dim sResponse As String
    
    Set req = New WinHttpRequest
    Set re = New RegExp
    
    re.IgnoreCase = True
    re.MultiLine = False
    re.Pattern = "<a target=""quickview(?:.|" & Chr(10) & ")+?>((.|" & Chr(10) & "|" & Chr(9) & ")+?)</a>"
    
    '// Change input data to your own
    sourceAmount = "1.0"
    sDate = "30-03-2021"
    
    sURL = "http://sdw.ecb.europa.eu/curConverter.do?sourceAmount=" & _
            sourceAmount & _
            "&sourceCurrency=USD&targetCurrency=RUB&inputDate=" & _
            sDate & _
            "&submitConvert.x=0&submitConvert.y=0" 
    
    
    req.Open "GET", sURL, False
    req.Send
    
    If Not req.Status = 200 Then
        MsgBox req.StatusText
        Exit Sub
    End If

    html = req.ResponseText
    Set mc = re.Execute(html)
    sResponse = Replace$(WorksheetFunction.Clean(mc(0).SubMatches(0)), " ", " ")
    sResponse = Replace(Trim$(Split(sResponse, "=")(1)), " USD", "")
    
    Range("A1") = sResponse
    
End Sub

Private Sub UserForm_Initialize()

    arr = Sheets("Baza").Range("Baza").Value

    For i = 1 To UBound(arr, 1)
        If arr(i, 4) = "Активный" Then
            If arr(i, 7) Like "*Кальян:*" Then
                m = Split(arr(i, 7), "|")
                For j = 0 To UBound(m)
                    If m(j) Like "*Кальян:*" Then
                        Me.lbHook.AddItem m(j)
                    End If
                Next j
            End If
        End If
    Next i

End Sub

Private Sub UserForm_Initialize()

    arr = Sheets("Baza").Range("Baza").Value

    For i = 1 To UBound(arr, 1)
        If arr(i, 4) = "Активный" And arr(i, 5) = numTbl Then
            If arr(i, 7) Like "*Кальян:*" Then
                m = Split(arr(i, 7), "|")
                For j = 0 To UBound(m)
                    If m(j) Like "*Кальян:*" Then
                        Me.lbHook.AddItem m(j)
                    End If
                Next j
            End If
        End If
    Next i

End Sub