条件が一致した場合に商品名ごとに合計を表示する方法

G1「=B1」
G2「{=VLOOKUP("*",IF(COUNTIF(G$1:G1,$B$1:$B$21)=0,$B$1:$B$21),1,FALSE)}」
G3から下はG2をコピペ

H1「=SUMIFS($C$1:$C$15,$D$1:$D$15,"=1",$B$1:$B$15,G1)」
H2から下はH1をコピペ

Sub Test()
    Dim i As Long
    Dim DicMain As Object: Set DicMain = CreateObject("Scripting.Dictionary")
    Dim tmpDic As Object, key1 As Variant, key2 As Variant, val As Double
    i = 1
    With ActiveSheet
        Do
            key1 = CStr(.Cells(i, 4).Value)'1を想定
            key2 = CStr(.Cells(i, 2).Value)'aaaを想定
            val = CDbl(.Cells(i, 3).Value)'100を想定
            If DicMain.Exists(key1) = False Then DicMain.Add key1, CreateObject("Scripting.Dictionary")
            If DicMain.Item(key1).Exists(key2) = False Then DicMain.Item(key1).Add key2, 0
            DicMain.Item(key1).Item(key2) = DicMain.Item(key1).Item(key2) + val
            i = i + 1
        Loop Until .Cells(i, 1).Value = ""
        i = i + 5
        For Each key1 In DicMain.keys
            If key1 = "1" Then
                For Each key2 In DicMain.Item(key1).keys
                    .Cells(i, 1) = key2
                    .Cells(i, 2) = DicMain.Item(key1).Item(key2)
                    i = i + 1
                Next key2
            End If
        Next key1
    End With
End Sub