Сохранение истории изменения значений ячеек в таблице Excel

[Asblue]

Здравствуйте.
В таблицу Excel - Книга1/Лист1 экспортируются данные из таблицы программы QUIK.
Данные из QUIK отображаются в ячейках A1, A2, A3.
Если в таблице QUIK значения меняются, то такие же изменения автоматически происходят в таблице Excel в ячейках A1, A2, A3.
История изменения значений в ячейках А1, А2, А3 столбца "А" сохраняется в столбце "С".
Т.е. нужно, чтобы при каждом изменении данных в "А" они переносились в "С" и при этом каждый раз в новые строки, примерно так:
А1=С1
А2=С2
А3=С3
А когда значение в ячейках А меняются, т.е. новое значение А1 не= предыдущему значению А1 и т.д., то
А1=С1+3=С4
А2=С5
А3=С5 и т.д.
Подскажите пожалуйста, как это можно реализовать?

Вот есть пример макроса, но тут что-то не очень всё понятно...

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

zxcxzczx.jpg

[alex77755]

А что не нравится?

Private Sub Worksheet_Change(ByVal Target As Range)'при изменении значений
 If Target.Column = 1 And Target.Row < 4 Then'если изменения в 1 столбце с 1 по 3 строки
 LastRow = Cells(Rows.Count, 3).End(xlUp).Row + 1'находим первую пустую ячейку с 3 столбце
 For Each cel In [a1:a3]'по всем ячейкам диапазона A1:A3
 Cells(LastRow, 3) = cel.Value ' переписываем в столбец 3 в свободную ячейку
 LastRow = LastRow + 1'перевод на следующую свободную ячейку
 Next'
 End If'

[Asblue]

Да, всё норм, спасибо))