Нахождение суммы у вложенных циклах For Next.

With Range("A3")
    NumCom = Application.Inputbox("Enter number of ID you want to buy", "")
    For n = 1 To NumCom
       ID = Application.Inputbox("Enter commodity code", "")
         For i = 0 To RowCount
           If .Offset(i, 0) = ID Then
            GoodsNum = Application.Inputbox("Enter number of commodities you want to buy", "Buying of commodities")
            Price = .Offset(i, 1)
            NumGoodsDics = .Offset(i, 2)
            Discount = .Offset(i, 3)
                If GoodsNum >= NumGoodsDics Then
                    MsgBox "Покупка со скидкой"
                    Sum1=(GoodsNum * Price) - (GoodsNum * Price * Discount)
                    Msgbox Sum1
                Else
                    MsgBox "Покупка без скидки"
                    Sum2=GoodsNum * Price
                    Msgbox Sum2
                End If
           End If
         'как просумммировать уплаченно за товары в количестве NumCom, не знаю
         Next i
    Next n
msfbox "В общем за " & NumCom  & " товары, вы уплатите" & sum
End With