Сохранение таймера с листа 1 до следующей пустой ячейки на листе 2 для многократного сохранения

Question

Мне нужно иметь возможность сохранить время, произведенное в диапазоне листа 1 A1 , до следующей пустой ячейки в столбце A на листе 2, которую можно использовать несколько раз для последовательного сохранения времени в столбце.Я хотел бы, чтобы эта функция была добавлена ​​ко второму сабвуферу здесь StopTimer.

Мой текущий код таймера

Sub StartTimer()
    Dim Start As Single, RunTime As Single
    Dim ElapsedTime As String
    Dim counter As Long
    'Set the control cell to 0 and make it green
    Range("C1").Value = 0
    Range("A1").Interior.Color = 5296274 'Green
    counter = 0
    Start = Timer 'Set start time.
    Debug.Print Start
    Do While Range("C1").Value = 0
    DoEvents 'Yield to other processes.
    RunTime = Timer 'current elapsed time
    ElapsedTime = Format((RunTime - Start) / 86400, "hh:mm:ss")
    'Display currently elapsed time in AI
    Range("A1").Value = ElapsedTime
    Application.StatusBar = ElapsedTime
    Loop
    Range("A1").Value = ElapsedTime
    Range("A1").Interior.Color = 192 'Dark Red
End Sub

Sub StopTimer()
    'Set the control cell to 1
     Range("C1").Value = 1
End Sub