'Run RRL macro at 6:30 AM
Sub Run_At_630AM()
Application.OnTime TimeValue("06:30:00"), "RRL"
End Sub

'Run TRL2 macro at 6:31 AM
Sub Run_At_631AM()
Application.OnTime TimeValue("06:31:00"), "TRL2"
End Sub

'Save entire workout as test.yyyymmddhhmmss.xls
Sub SaveAs()
  ActiveWorkbook.SaveAs Filename:="C:\test " & _
  Format(Now(), "YYYYMMDDhhmmss") & ".xls"
End Sub

'Update Cell C2 with last Saved date and time
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   Sheets("RL").Range("c2").Value = last_saved()
End Sub