Изменение значения в ячейке в зависимости от изменения в другой ячейке

Private Sub Worksheet_Change(ByVal t As Range)
Dim v
On Error Resume Next
Set t = Intersect(t, Columns(2))
If t Is Nothing Then Exit Sub
If t.Count > 1 Then Exit Sub
Application.EnableEvents = False
v = t.Value
Application.Undo
With t.Offset(1, -1)
  .Value = .Value + v - t
End With
t.Value = v
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal t As Range)
Dim dv, v, lr&, sel As Range
On Error Resume Next
Set t = Intersect(t, Columns(2))
If t Is Nothing Then Exit Sub
If t.Count > 1 Then Exit Sub
lr = Cells(Rows.Count, 1).End(xlUp).Row
If t.Row >= lr Then Exit Sub
Application.EnableEvents = False
v = t.Value
Set sel = Selection
Application.Undo
dv = v - t.Value
t.Value = v
sel.Select
For Each t In Range(t.Offset(1, -1), Cells(lr, 1))
  t.Value = t.Value + dv
Next
Application.EnableEvents = True
End Sub