You have:
Application.OnTime DateAdd("s", 1, Now), "Calculate_Range"
in the Calculate_Range macro, which reschedules a run of itself.
Make that line conditional:
if x then Application.OnTime DateAdd("s", 1, Now), "Calculate_Range"
where x is something you test; it could be a global variable set by a StopClock macro, it could be the contents of a cell on a sheet somewhere which is adjusted by the StopClock macro.
It will be 'cleaner' if the StartClock macro is a separate macro that sets x to false (or whatever) and then calls the Calculate_Range macro.
See attached.