Корректировка скрипта VBA

Формулировка задачи:

Добрый день!!!
Нашел здесь скрипт:

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Address = "$B$1") Then
ActiveSheet.Cells(1, 3) = ActiveSheet.Cells(1, 1)
End If
End Sub

Я так понял здесь условие такое, что при появлении текущего значения в ячейке B1 из ячейки A1 текущее значение переносится в ячейку C1. Скрипт мне подходит, но не совсем )))
Мне необходимо , чтобы значение переносилось из ячейки А1 (значение постоянно меняется и считывается с другого устройства) в ячейку C1, но при этом через каждые, например, полчаса. При этом каждое следующее значение должно переносится в последующую ячейку: С2,С3,С4 и т.д.. Как сделать подобное?

Решение задачи: «Корректировка скрипта VBA»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim CurRow As Long

Sub Start()

CurRow = 1 - задаем начальное значение ячейки
Application.OnTime Now, "MyProc" - запускаем таймер

End Sub
Sub MyProc()

ThisWorkbook.Worksheets(1).Cells(CurRow, 3) = ThisWorkbook.Worksheets(1).Cells(1, 1) - заносим значение ячейки А1 в ячейку С1
CurRow = CurRow + 1 - переход на следующую ячейку
Application.OnTime DateAdd("s", 1800, Now), "MyProc" - таймер в 1800 сек.

End Sub

                        