Timer del module Excel VB

Ho bisogno di eseguire un pezzo di codice each 60 minuti in Excel. Sto cercando un modo semplice per farlo in excel. una cartella di lavoro con 72 fogli di lavoro e unendo tutti i dati in un foglio di giornali, ma devo aggiornare il foglio o un timer che può farlo aggiornare each 60 minuti. questo perché i dati in quei 72 fogli vengono aggiornati in tempi diversi. il codice di fusione va sotto; qualsiasi aiuto è apprezzato!

Sub Combine() Dim J As Integer On Error Resume Next Sheets(1).Select Worksheets.Add ' add a sheet in first place Sheets(1).Name = "Combined" ' copy headings Sheets(2).Activate Range("b17").EntireRow.Select Selection.Copy Destination:=Sheets(1).Range("b17:i36") ' work through sheets For J = 2 To Sheets.Count ' from sheet 2 to last sheet Sheets(J).Activate ' make the sheet active Range("b17").Select Selection.CurrentRegion.Select ' select all cells in this sheets ' select all lines except title Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select ' copy cells selected in the new sheet on last line Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2) Next End Sub