Изменение диапазона сохраняемых ячеек

[Asblue]

Option Explicit

Private Sub Worksheet_Calculate()
Dim LastRow&
LastRow = Cells(Rows.Count, "D").End(xlUp).Row
Cells(LastRow + 1, "D") = [B1]
End Sub

Ячейка В1=К1+К2. При изменении значений К1 и К2, сумма в В1 автоматически меняется. Вся история изменений сохраняется в столбец D.
(Эта процедура приведена в коде)

У меня 66 ячеек в диапазоне от А1 до С22 и во всех функции типа А1=К1+К1, В3=К3+К3 и т.д. Как изменить код, чтобы история изменений значений сохранялась не только для ячейки В1, а для всех ячеек от А1 до С22 в столбцы D, E, F?

[Hugo121]

Может так - если мы помним, что данные приходят сразу все по DDE:

Private Sub Worksheet_Calculate()
'Application.EnableEvents = False
Dim LastRow&
LastRow = Cells(Rows.Count, "D").End(xlUp).Row
Cells(LastRow + 1, "D").Resize(22, 3) = [a1:c22].Value
'Application.EnableEvents = True
End Sub

Application.EnableEvents возможно нужно отключать, чтоб само копирование данных не вызывало копирование.

[Asblue]

Hugo121, спасибо вам огромнейшее!!! Всё, отлично, теперь наконец-таки работает как надо. Большое большое спасибо, вы очень помогли!!! )))))))))))))))))))