Function VLOOKUPSUM(Table As Variant, SearchColumnNum As Long, SearchValue As Variant, _
                                        RezultColumnNum As Long)
'Table - таблица, где ищем
'SearchColumnNum - столбец, где ищем
'SearchValue - данные, которые ищем
'RezultColumnNum - колонка, откуда берём результат

Dim i As Long

Select Case TypeName(Table)
Case "Range"
    For i =  1  To Table.Rows.Count
            If Table.Cells(i, SearchColumnNum) = SearchValue Then
            If VLOOKUPSUM <> "" Then
                VLOOKUPSUM = VLOOKUPSUM + Table.Cells(i, RezultColumnNum)
            Else
            VLOOKUPSUM = Table.Cells(i, RezultColumnNum)
            End If
            End If
        Next i
Case "Variant()"
For i =  1  To UBound(Table)
If Table(i, SearchColumnNum) = SearchValue Then
            If VLOOKUPSUM <> "" Then
                VLOOKUPSUM = VLOOKUPSUM + Table(i, RezultColumnNum)
            Else
            VLOOKUPSUM = Table(i, RezultColumnNum)
            End If
End If
Next i
        
End Select
        If VLOOKUPSUM =  0  Then VLOOKUPSUM = ""
End Function