VBA计数器求助

lastRow = Cells(Rows.Count, "C").End(xlUp).Row
    Set dict = CreateObject("Scripting.Dictionary")
    For i = 2 To lastRow
        branch = Cells(i, "C").Value
        sum = Cells(i, "O").Value
        If dict.Exists(branch) Then
            dict(branch)(0) = dict(branch)(0) + 1
            dict(branch)(1) = dict(branch)(1) + sum
        Else
            dict(branch) = Array(1, sum)
        End If
    Next i