сумма одинаковых действий (продолжение темы)

[iKlev4s]

добрый день,

как переписать код, чтобы значения одинаковых действий суммировались в одну ячейку? Спасибо

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, [C4:C12]) Is Nothing And IsNumeric(Target) Then
     Application.EnableEvents = False
     Target.Offset(, 2) = Target + Target.Offset(, 2)
     Application.EnableEvents = True
  End If
End Sub