¿Cómo puedo hacer una ejecución cíclica infinita en una Macro de Excel?

Que fórmula tienes y en que celda la manejas podrías enviarme el archivo...

La fórmula de donde se toma el valor esta ligada a un software de Rockwell automation... ¿Y a dónde te mando el archivo?

[email protected], necesito saber si solo se copia o si vas insertando filas para ir colocando cada dato o en una hoja nueva ect...

Amigo para ejecutar la macro el pc debe estar encendido y por supuesto que debe ser automático con tiempo indefinido y ya te la tengo... estoy esperando que me contestes algo a ver si te funciona

Pues si, tengo el PC encendido, y después de las 24 horas que pasa después de haber abierto el libro, se detienen las macros. Enseguida te mando el archivo.

Lo que vas a colocar en 1 modulo:

Sub programarMacro()
Tiempo = Now + TimeValue("01:00:00")
Application.OnTime Tiempo, "miMacro", , True
End Sub

* Esto te va a ejecutar la macro cada 1 hora; pero falta la macro que se va a ejecutar, en este caso yo la llame miMacro:

Sub miMacro()
Sheets("Hoja1").Select
Range("D5").Value = Range("D5").Value
Sheets("Hoja2").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B2").Select
Sheets("Hoja1").Select
Range("D5").Select
Selection.Copy
Sheets("Hoja2").Select
Range("B2").PasteSpecial xlPasteValues
Call programarMacro
End Sub

Al colocarle Call programarMacro se reactivara nuevamente la macro que ejecutara miMacro y así sucesivamente(osea infinitamente si no cierras el programa, hay una manera para que lo puedas ejecutar teniendo cerrado el archivo pero ese es otro tema)

*Todo esto es en el modulo 1, aquí ya estarás guardando el dato de la celda "5 hoja 1" en este caso cada 1 hora siempre que excel este activo de manera automática y para colocarle la hora y fecha en que se guarda el dato, en la hoja donde estas guardando el dato le colocas este código:

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column < 3 Then '

Cells(Target.Row, 3).Value = Now 'en este el 3 quiere decir que en esa celda es que se va a actualizar
End If
Automaticamente sin formato
End Sub

Espero la respuesta te sea de utilidad no olvides valorarla.