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

[Asblue]

(Из темы http://programmersforum.ru/showthread.php?t=170567)

Здесь описывается функция, как сохранять историю изменения значений ячеек А1:А3 в столбец С

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row < 4 Then
Application.EnableEvents = False
LastRow = Cells(Rows.Count, 3).End(xlUp).Row
If LastRow <> 1 Then LastRow = LastRow + 1
For i = 0 To 2
Cells(LastRow + i, 3) = Cells(i + 1, 1).Value
Next
Application.EnableEvents = True
End If
End Sub

А как изменить диапазон сохраняемых ячеек?
Например мне нужно переносить значения в диапазоне ячеек не от А1 до А3 в столбец С, а от А1 до С10 в столбцы E, F, G.

[Asblue]

Проблема решена. Тема закрыта.