Ячейка с накоплением (нарастающим итогом)

Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.Value

range("B1").Value = range("B1").Value + Target.Value

Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Not Intersect(Target, Range("I6:I100" )) Is Nothing Then
     If IsNumeric(Target.Value) Then
      Application.EnableEvents = False
      Target.Offset(0, 3).Value = Target.Offset(0, 3).Value + Target.Value
      Application.EnableEvents = True
     End If
    End If
End Sub

Sub Worksheet_Change(ByVal Target As Excel.Range)
 If Not Intersect(Target, Range("J6:J100" )) Is Nothing Then
 If IsNumeric(Target.Value) Then
 Application.EnableEvents = False
 Target.Offset(0, 3).Value = Target.Offset(0, 3).Value + Target.Value
 Application.EnableEvents = True
 End If
 End If
End Sub 

Sub Worksheet_Change(ByVal Target As Excel.Range)
     If Not Intersect(Target, Range("I6:J100" )) Is Nothing Then
            If IsNumeric(Target.Value) Then
           Application.EnableEvents = False
           Target.Offset(0, 3).Value = Target.Offset(0, 3).Value + Target.Value
           Application.EnableEvents = True
           End If
        End If
End Sub

Sub Worksheet_Change
(ByVal Target As Excel.Range)     
If Not Intersect(Target, Range("I6:J100" )) Is Nothing Then   
   If IsNumeric(Target.Value) Then     
   Application.EnableEvents = False  
   Target.Offset(0, 3).Value = Target.Offset(0, 3).Value + Target.Value     
   Application.EnableEvents = True     
   End If     
End If
End Sub 

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 
  If Not Intersect(Target, Range("A3:F10")) Is Nothing Then
     If IsNumeric(Target.Value) Then
         Application.EnableEvents = False
         Cells(Target.Row, 7).Value = Cells(Target.Row, 7).Value + Target.Value
         Application.EnableEvents = True
     End If
  End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("B1:B7")) Is Nothing And IsNumeric(Target) Then
       Application.EnableEvents = False
             Range("B10") = Range("B10").Value + Target.Value
       Application.EnableEvents = True
   End If
End Sub 

Sub Plusovalka()
   Range("A2") = Range("A2") + Range("A1")
End Sub
 

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
      With Target
         If .Address(False, False) = "A1" Then
             ....
         End If
         If .Address(False, False) = "F5" Then
             ....
         End If
         If .Address(False, False) = "X13" Then
             ....
         End If
      End With
End Sub
 

Private Sub Worksheet_Change(ByVal Target As Excel.Range) ' строка для контроля изменений на рабочем листе: 
' Private Sub (делает то-то) Worksheet_Change (следит за изменениями) (ByVal Target As Excel.Range) (отвечает за то-то)
      
 

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim a
a = Array("$P$11", "$P$13", "$P$15", "$P$17", "$P$19", "$P$21", "$P$23", "$P$25", "$P$26")  
For i = 0 To UBound(a)
If Target.Address Like "*" & a(i) & "" Then
    With Target
      Application.EnableEvents = False
      .Offset(, -2) = .Offset(, -2) + .Value
      .Offset(, -4) = .Offset(, -4) + .Value
      Application.EnableEvents = True
    End With
    Exit For
End If
Next
End Sub