Function Amount_in_fact(Input_Datai As Range, Tabli As Range) As Long
    Dim a, Input_Data, Tabl, i As Long, j As Long
    Input_Data = Application.Transpose(Input_Datai)
    Tabl = Tabli
    For i = 1 To UBound(Tabl)
        If Tabl(i, 1) = Input_Data(1, 1) And Replace(Tabl(i, 5), ",", ".") = UCase(Input_Data(2, 1)) Then
            a = Split(Input_Data(3, 1), "/")
            For j = 0 To UBound(a)
                a(j) = Format(a(j), "0000")
                If InStr(Tabl(i, 6), a(j)) Or InStr(Tabl(i, 7), a(j)) Or InStr(Tabl(i, 8), a(j)) Then
                    Amount_in_fact = Amount_in_fact + Tabl(i, 4)
                End If
            Next j
        End If
    Next i
End Function