Data logging code is pasting data multiple times

[BuffaloGuy]

Every minute, this code copies Cells C3:M3 on the Calculation worksheet, and pastes it in the first available row on the Data worksheet.

The problem is, it pastes the code four times in a matter of seconds. Is there a way to stop the loop after one occurrence?

Option Explicit

Dim TimeToRun


Sub MacroRun()

    TimeToRun = Now + TimeValue("00:01:00")
    Application.OnTime TimeToRun, "Macro1"
        
End Sub

Sub Macro1()
    Calculate
    
    ThisWorkbook.Worksheets("Calculation").Range("C3:M3").Copy
    
    ThisWorkbook.Worksheets("Data").Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    
    Application.CutCopyMode = False
        
MacroRun

End Sub


Sub stopMacros()
    
    On Error Resume Next
    Application.OnTime TimeToRun, "Macro1", , False
    
End Sub

 

[JoeMo]

From the code you posted I don't see any reason why there would be more than one copy/paste per minute. Do you have other code, especially event code in the workbook?

 

[BuffaloGuy]

From the code you posted I don't see any reason why there would be more than one copy/paste per minute. Do you have other code, especially event code in the workbook?

I have this code as another module

Sub AutoRefresh()
 
 ActiveWorkbook.RefreshAll
 
 'Auto-Refresh in 0 hours, 0 minute, 30 seconds
 
 NextTime = Time + TimeSerial(0, 0, 30)
 
 Application.OnTime NextTime, “AutoRefresh
 
End Sub

 

[BuffaloGuy]

I have this code as another module

Sub AutoRefresh()

ActiveWorkbook.RefreshAll

'Auto-Refresh in 0 hours, 0 minute, 30 seconds

NextTime = Time + TimeSerial(0, 0, 30)

Application.OnTime NextTime, “AutoRefresh

End Sub

Actually this is the code.

Sub AutoRefresh()
 
 ThisWorkbook.RefreshAll
 
 'Auto-Refresh in 0 hours, 0 minute, 30 seconds
 
 NextTime = Time + TimeSerial(0, 0, 30)
 
 Application.OnTime NextTime, “AutoRefresh”
 
End Sub

 

[JoeMo]

I suspect your auto refresh is interfering with your copy/paste code. Can you combine the two, for example, start MacroRun with Thisworkbook.RefreshAll and remove the autorefresh module?

 

[BuffaloGuy]

That was my thought too, but I started working on my taxes and couldn’t work on it tonight. I’ll try it again tomorrow.