Сохранение автоматического изменения значения ячейки

[Asblue]

Здравствуйте.
В таблице Excel B1=A1*A2.
При каждом изменении значений в А1 и А2, произведение в В1 тоже меняется.
1.jpg

Нужно, чтобы в столбец D сохранялась вся история изменений ячейки В1, т.е. так:
2.jpg

В этом примере макроса описывается сохранение изменения ячейки B1 в столбец D.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row < 2 Then
LastRow = Cells(Rows.Count, 4).End(xlUp).Row
LastRow = LastRow + 1
For Each cel In [b1]
Cells(LastRow, 4) = cel.Value
LastRow = LastRow + 1
Next
End If
End Sub

Дело в том, что в примере значения сохраняются только, если они были изменены вручную. А нужно, чтобы сохранения происходили и тогда, когда изменения значений ячеек происходит автоматически. Помогите, как это сделать?

[staniiislav]

http://programmersforum.ru/showthrea...d=1#post903367