Automatisk flyt af celle indhold med vba kode

Med lidt hjælp fra http://www.excelexperts.com/vba-tips-run-code-every-hour-minute-or-second har jeg lavet denne makro, som ser ud til at virke:

Dim TimeToRun
Sub Auto_Open()
Call ScheduleCopy
End Sub
Sub ScheduleCopy()
TimeToRun = Now + TimeValue("00:15:00")
Application.OnTime TimeToRun, "CopyIt"
End Sub
Sub CopyIt()
Calculate
Range("B10") = Range("A10").Value
Call ScheduleCopy
End Sub
Sub Auto_Close()
Application.OnTime TimeToRun, "CopyIt", , False
End Sub

Hej og mange tak kan godt se ideen med det du har lavet men mangler den sidste faktor.
f. eks den tid hvor jeg vil have fyttet indhold skrives i b9 det jeg vil flytte står i b10 og skal så flyttes til c10 når klokken er = b9

Ups, jeg havde ikke læst det ordentligt.

Prøv med denne

Dim TimeToRun
Sub Auto_Open()
Call ScheduleCopy
End Sub
Sub ScheduleCopy()
TimeToRun = Now + TimeValue("00:00:30")
Application.OnTime TimeToRun, "CopyIt"
End Sub
Sub CopyIt()
Calculate
If Int((Int(Now) + Range("E9")) * 1440) = Int(Now * 1440) Then
Range("B10") = Range("A10").Value
End If
Call ScheduleCopy
End Sub
Sub Auto_Close()
Application.OnTime TimeToRun, "CopyIt", , False
End Sub

Hej har nu prøvet at lægge den ind som kode bag arket men der sker ikke noget, skulle den ikke ligge og køre i baggrunden?

Prøv at genstarte arket