Ускорить макрос

[Казанский]

За счет следующих изменений:
- раннего связывания;
- использования свойства Range.Value2 вместо Range.Value;
- объявления выходного массива b As Double
удается снизить время выполнения кода с 1,7 до 1,1 с, т.е. на 35%.

Private Sub CommandButton1_Click()
    Dim i As Long, q As String, a(), b() As Double
    Dim z As Dictionary 'Tools - References - Microsoft Scripting Runtime
Dim t!: t = Timer
    Application.ScreenUpdating = False
    Range("D2:D" & Rows.Count).ClearContents
    Set z = New Dictionary
    a = Range("A2:C" & Cells(Rows.Count, 1).End(xlUp).Row).Value2
    ReDim b(1 To UBound(a, 1), 1 To 1)
    For i = 1 To UBound(a, 1)
        q = a(i, 1) & a(i, 2): z(q) = z(q) + a(i, 3)
    Next
    For i = 1 To UBound(a, 1): b(i, 1) = z(a(i, 1) & a(i, 2)): Next
    [D2].Resize(UBound(b, 1)).Value2 = b
    Application.ScreenUpdating = True
Debug.Print Timer - t
End Sub

[Казанский]

Может быть, просто построить сводную со складами и клиентами в строках?
Данные будут сгруппированы по тому полю, которое идет первым. Сейчас в приложенном файле первым идет Склад, поэтому можно увидеть суммы клиентов по каждому складу.
Если в макете таблицы перетащить поле Клиент выше поля Склад, то группировка будет по Клиентам.
И еще к вашим услугам фильтры, итоги, сортировка, сводная диаграмма! Это же все для финансово-логистического анализа придумано.