I need help to create a VBA code

[daniboymu]

I need help creating a macro which runs these 2 codes at the same time every 5 minutes between 9:05 am to 5:45 pm could someone please help me its very important!
FIRST CODE:

Sub Atualizar()



Rows(7).Insert

Range("A8:DG8").Value = Range("A5:DG5").Value

End Sub

THE SECOND CODE:

Sub Atualizar_Correl()

'

' Atualizar_Correl Macro



Range("A7").Select

ActiveCell.FormulaR1C1 = "=Database!R[1]C"

Range("B7").Select

ActiveCell.FormulaR1C1 = _

"=HLOOKUP(R6C2,Database!R6C2:R314C27,ROW(Database!R[1]C)-5,FALSE)"

Range("C7").Select

ActiveCell.FormulaR1C1 = _

"=HLOOKUP(R6C3,Database!R6C2:R319C27,ROW(Database!R[1]C)-5,FALSE)"

Range("A7").Select

Selection.AutoFill Destination:=Range("A7:A257")

Range("A7:A257").Select

Range("B7").Select

Selection.AutoFill Destination:=Range("B7:B257")

Range("B7:B257").Select

Range("C7").Select

Selection.AutoFill Destination:=Range("C7:C257")

Range("C7:C257").Select

End Sub

 

[Logit]

.

Dim TimeToRun

'Sub auto_open()
'    Call ScheduleclrCol                        'uncomment this for code to auto run when sheet is opened
'End Sub

Sub ScheduleclrCol()
    TimeToRun = Now + TimeValue("00:05:00")     '<----- adjust time to fire here  HH:MM:SS
    Application.OnTime TimeToRun, "MacroRun"
End Sub

Sub MacroRun()
    Calculate
   
    Atualizar
    Atualizar_Correl
   
    Call ScheduleclrCol
End Sub

'Sub auto_close()                               'uncomment this for code to auto stop when sheet is closed
'    On Error Resume Next
'    Application.OnTime TimeToRun, "MacroRun, , False"
'End Sub

Sub manual_stop()                               'button click for stop (Manual Stop)
    On Error Resume Next
    Application.OnTime TimeToRun, "MacroRun, , False"
End Sub

Sub Atualizar()

Rows(7).Insert

Range("A8:DG8").Value = Range("A5:DG5").Value

End Sub

Sub Atualizar_Correl()

'

' Atualizar_Correl Macro



Range("A7").Select

ActiveCell.FormulaR1C1 = "=Database!R[1]C"

Range("B7").Select

ActiveCell.FormulaR1C1 = "=HLOOKUP(R6C2,Database!R6C2:R314C27,ROW(Database!R[1]C)-5,FALSE)"

Range("C7").Select

ActiveCell.FormulaR1C1 = "=HLOOKUP(R6C3,Database!R6C2:R319C27,ROW(Database!R[1]C)-5,FALSE)"

Range("A7").Select

Selection.AutoFill Destination:=Range("A7:A257")

Range("A7:A257").Select

Range("B7").Select

Selection.AutoFill Destination:=Range("B7:B257")

Range("B7:B257").Select

Range("C7").Select

Selection.AutoFill Destination:=Range("C7:C257")

Range("C7:C257").Select

End Sub

Create two CommandButtons. One connects to ScheduleclrCol ... the other connects to manual_stop