Excel VBA OnTimemacros多次运行

我有一个简单的代码，将复制我的股票投资组合的当前值，并将其粘贴到表中。 我最近试图添加一个计时器，以便它每小时自动执行一次。 它的工作，但是，它粘贴价值四五次进入表。 我周围search，我认为这可能是因为它只需要一秒钟运行macros，所以它循环，直到一秒钟过去了。

代码如下：

Sub AutoPL() Worksheets("Overview").Range("C15:D15").Copy Worksheets("Data").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues Application.CutCopyMode = False Call PLTimer End Sub Sub PLTimer() Application.OnTime Now + TimeValue("01:00:00"), "AutoPL" End Sub 

提前致谢