Copy Row Value to Cell at an interval

[extraordinare]

Hi All,

Can anyone assist with a macro to copy column value to another column at different interval (up to 10 columns)

I got ticking values populating in cell A2:A10

Every 30 seconds, copy this value to B2:B10
Next 30 second, copy this value to C2:C10
Until G2:G40

Go back and overwrite B2:B40

This loop carries on until it comes to a stop a click of button

Option Explicit
Public dTime As Date


   
    Sub ValueStore()
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    Cells(i, 2).Value = Cells(i, 1).Value
   
Next i
Call StartTimer
End Sub
   



Sub StartTimer()
    dTime = Now + TimeValue("00:00:05")
    Application.OnTime dTime, "ValueStore", Schedule:=True
End Sub

Sub StopTimer()
    On Error Resume Next
    Application.OnTime dTime, "ValueStore", Schedule:=False
End Sub


Private Sub CommandButton7_Click()
    Call StartTimer
End Sub


Private Sub CommandButton5_Click()
    Call StopTimer
End Sub

 

[extraordinare]

Anyone with any clue

 

[extraordinare]

Hello