Sub dsd()
Dim i As Long, lr As Long, k As Long, col As New Collection, P As Worksheet, S As Worksheet, arr
Set P = Worksheets("Поступления"): Set S = Worksheets("Склад")
lr = P.Cells(Rows.Count, 7).End(xlUp).Row
    For i = 10 To lr
        On Error Resume Next
        If P.Cells(i, 7) <> "" Then
            col.Add P.Cells(i, 7).Value, CStr(P.Cells(i, 7).Value)
        End If
    Next i
ReDim arr(col.Count, 1)
For i = 1 To col.Count
    arr(i - 1, 0) = col(i)
    arr(i - 1, 1) = Application.WorksheetFunction.SumIf(P.Range(P.Cells(10, 7), P.Cells(lr, 7)), col(i), P.Range(P.Cells(10, 11), P.Cells(lr, 11)))
Next i
S.Range("B4:C4").Resize(UBound(arr)) = arr
End Sub