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

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