Record Data Every Second Help

Hi All

I have been looking on line for a macro that record data in excel for every second, I managed to find one but the macro on captures the data on one cell though so I want to tweak it so that it captures a whole column

But it don't seems to be working, the macro below still only record the data for the first cell, any suggestions on what I've done wrong?

Thanks in advance!

Dim TimeToRun

Sub auto_open()
    Call ScheduleCopyPriceOver
End Sub

Sub ScheduleCopyPriceOver()
    TimeToRun = Now + TimeValue("00:00:01")
    Application.OnTime TimeToRun, "CopyPriceOver"
End Sub

Sub CopyPriceOver()
    Calculate

 Sheets("Data").Range("IV3:IV209").End(xlToLeft).Offset(0, 1).Value = Sheets("Data").Range("C3:C209").Value
    Call ScheduleCopyPriceOver
End Sub

Sub auto_close()
    On Error Resume Next
    Application.OnTime TimeToRun, "CopyPriceOver", , False
End Sub