Aplicación de copyr y pegar de VBA en el momento

Necesitaría su ayuda por favor … Me gustaría copyr y pegar los valores de una celda a otra en la misma hoja y este process se realizará en un intervalo de time (por ejemplo: 1 min, 5 min). ¿Podría darme un consejo, aquí está mi código que lo he hecho hasta ahora (está copyndo pero no está actualizando):

Sub F_update() Dim CurrentWS As Worksheet Set CurrentWS = ThisWorkbook.ActiveSheet Application.ScreenUpdating = False Range("A2:A5").Copy Range("B2") Application.OnTime Now + TimeValue("00:00:20"), _ "VBAProject.Module1.LB" CurrentWS.Activate Application.ScreenUpdating = False End Sub 

Puede usar la aplicación. Función Tiempo. agregar código a ThisWorkBook

 Private Sub Workbook_Open() runTime_1 = Now + TimeValue("00:01:00") Application.OnTime runTime, "RunEvent_1" runTime_5 = Now + TimeValue("00:05:00") Application.OnTime runTime, "RunEvent_5" runTime_10 = Now + TimeValue("00:10:00") Application.OnTime runTime, "RunEvent_10" End Sub 'Then have a macros in the workbook to repeat the Ontime command. Public Sub RunEvent_1() 'Execute your actions here' ' and repeat hear DoEvents ' this gives user control if they needs to break exection alertTime = Now + TimeValue("00:01:00") Application.OnTime alertTime, "RunEvent_1" End Sub Public Sub RunEvent_5() 'Execute your actions here' ' and repeat hear DoEvents ' this gives user control if they needs to break exection alertTime = Now + TimeValue("00:05:00") Application.OnTime alertTime, "RunEvent_5" End Sub Public Sub RunEvent_10() 'Execute your actions here' ' and repeat hear DoEvents ' this gives user control if they needs to break exection alertTime = Now + TimeValue("00:10:00") Application.OnTime alertTime, "RunEvent_10" End Sub