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

Sub Clean()
   With Sheets("ОтчетнаяФорма")
       Dim t As Integer
       Dim iLastRow As Long
       iLastRow = [A12].End(xlDown).Row
            For t = 12 to iLastRow
                If Cells(t,1) <> "" Then Rows(t).Delete
            Next t
    End With
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

Private Sub NewOrder_Clic()

...

Unload Me

End Sub

 With Sheets("Baza")
        
        iLastRow = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
        
        .Cells(iLastRow, 2) = Date & " , " & Time
        .Cells(iLastRow, 4) = "Активный"
        .Cells(iLastRow, 5) = Me.cbTable.Value
        .Cells(iLastRow, 6) = Me.tbPeople.Value
        
        For i = 0 To Me.lbTabZakaz.ListCount - 1
               
                m = .Cells(iLastRow, 7).Value
                .Cells(iLastRow, 7).Value = "|" & m & "|" & Me.lbTabZakaz.List(i, 1)
            
        Next i

End With