Yardım Tablomdaki farklı iki sütundaki alanlara göre toplam bulma

Sub test()
    Dim lst, ky$, say&, sira&, i&, ver
    
    With Sheets("Sheet1")
        lst = .Range("G1:L" & .Cells(Rows.Count, 7).End(3).Row).Value
    End With
    
    ReDim ver(1 To UBound(lst), 1 To 3)
    
    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(lst)
            ky = lst(i, 2) & "|" & lst(i, 6)
            If Not .exists(ky) Then
                say = say + 1
                ver(say, 1) = lst(i, 2)
                ver(say, 2) = lst(i, 6)
                ver(say, 3) = lst(i, 1)
                .Item(ky) = say
            Else
                sira = .Item(ky)
                ver(sira, 3) = lst(i, 1) + ver(sira, 3)
            End If
        Next i
    End With
    
    With Sheets("Sheet2")
        .Cells.ClearContents
        .Range("A1").Resize(say, 3).Value = ver
    End With

End Sub