If Data_b1(i) >= Data1 And _
    Data_b2(i) <= Data2 And _
    Nazvaniye & Sklad = Nazvaniye_b(i) & Sklad_b(i) Then MySum = MySum + Raschet_b

If Data_b1(i) <= Data1 And Data2 & Nazvaniye & Sklad = Data_b2(i) & Nazvaniye_b(i) & Sklad_b(i) Or _
    Data_b1(i) >= Data1 And Data2 & Nazvaniye & Sklad = Data_b2(i) & Nazvaniye_b(i) & Sklad_b(i) Then _
    MySum = MySum + Raschet_b

    Application.EnableEvents = False
    Application.Calculation = xlManual
    Application.ScreenUpdating = False
    ...
    Application.EnableEvents = True
    Application.Calculation = xlAutomatic
    Application.ScreenUpdating = True

a = Application.WorksheetFunction.SumIf(Range("A1:A1000"), "= 38391", Range("B1:B1000"))

{=СУММ(ЕСЛИ(D$ 5 :D$ 31 =I5;ЕСЛИ(C$ 5 :C$ 31 =H5;ЕСЛИ(B$ 5 :B$ 31 >=G5;E$ 5 :E$ 31 ))))}

Function Raschet(Data1 As Range, Data_b1 As Range, _
    Data2 As Range, Data_b2 As Range, _
    Nazvaniye As Range, Nazvaniye_b As Range, _
    Sklad As Range, Skald_b As Range, _
    Raschet_b As Range) As Currency
    
    Dim i As Long
    Dim MySum As Currency
    i =  0 
    MySum =  0 
    Do
    i = i +  1 
    If Data1 >= Data_b1(i) And _
        Data2 <= Data_b2(i) And _
        Nazvaniye = Nazvaniye_b(i) And _
        Sklad = Sklad_b(i) Then MySum = MySum + Raschet_b(i)
    Loop Until i = Data_b1.Count
    
    Rashet = MySum
End Function

Function Raschet(Data1 As Range, Data_b1 As Range, _
    Data2 As Range, Data_b2 As Range, _
    Nazvaniye As Range, Nazvaniye_b As Range, _
    Sklad As Range, Sklаd_b As Range, _
    Raschet_b As Range) As Currency
    
    Dim i As Long
    Dim MySum As Currency
    i =  0 
    MySum =  0 
    Do
    i = i +  1 
    If Data1 >= Data_b1(i) And _
        Data2 <= Data_b2(i) And _
        Nazvaniye = Nazvaniye_b(i) And _
        Sklad = Sklad_b(i) Then MySum = MySum + Raschet_b(i)
    Loop Until i = Data_b1.Count
    
    Rashet = MySum
End Function

Rashet = MySum

Raschet

=Raschet1(B10;ЛО!A6:A1700;C10;ЛО!O6:O1700;D10;ЛО!K6:K1700;ЛО!H6:H1700)

Function Raschet(Data1 As Range, Data_b1 As Range, _
    Data2 As Range, Data_b2 As Range, _
    Nazvaniye As Range, Nazvaniye_b As Range, _
    Sklad As Range, Sklàd_b As Range, _
    Raschet_b As Range) As Currency
    
    Dim i As Long
    Dim MySum As Currency
    i =  0 
    MySum =  0 
    Do
    i = i +  1 
    If Data1 >= Data_b1(i) And Data2 <= Data_b2(i) And Nazvaniye = Nazvaniye_b(i) And Sklad = Sklàd_b(i) Then MySum = MySum + Raschet_b(i)
    Loop Until i = Data_b1.Count
    
    Raschet = MySum
End Function

mySum = mySum + Sheets(rng.Parent.name).cells(i,c)