Copy paste values in intervals with stop function

[ziggyfo]

Hi All,

I have the below code that I'm looking to update with some functions, but my VBA knowledge is not anything to talk about

Sub Odds()

RunTimer = Now + TimeValue ("00:00:05)

Application.OnTime RunTimer "Odds"
       With Sheets ("Sheet1")
             .Range ("A3").Copy Destination:=Range("H" & Rw.Count) .End(xlUp.Offset(1)
        End With
End Sub

What i would like to update this with is for the code to include a function to stop running the macro(I hhave this called in the main worksheet to run as soon as the workbook opens. Ideally i want to link up the additional macro that stops the code to a button on the sheet.

Additionally, currently its only doing a normal copy and paste, however I want it to copy and paste values only, but with a time stamp taken from cell M1 (I have an event timer in cell M1). Copy value from "A3" and time value in M1 and paste both next to each other in Col "H".

Hope I explained this correctly.

Any assistance would be greatly appreciated.