Excel VBA跨工作簿复制粘贴首次执行失败，调试续行可成功

我编写了一个约130行的Excel VBA Public Sub，核心逻辑是多组跨工作簿的单元格区域值复制粘贴操作，示例代码如下：

'   Copy Total Payout Table percentages
Set rngTest = wksTestGames.Range("$S$4:$S$123")
Set rng = wksGames.Range("$S$4:$S$123")
rngTest.Copy
rng.PasteSpecial xlPasteValues
'   Copy Team Payout Tables percentages
Set rngTest = wksTestGames.Range("$V$4:$V$123")
Set rng = wksGames.Range("$V$4:$V$123")
rngTest.Copy
rng.PasteSpecial xlPasteValues
'   Copy Not Used Payout Tables percentages
'   LowNet-C
Set rngTest = wksTestGames.Range("$Y$4:$Y$123")
Set rng = wksGames.Range("$Y$4:$Y$123")
rngTest.Copy
'   Copy Card Matching Option
rng.PasteSpecial xlPasteValues
Set rngTest = wksTestGames.Range("TotalGameScoreCardMatching")
Set rng = wksGames.Range("TotalGameScoreCardMatching")
rngTest.Copy
rng.PasteSpecial xlPasteValues

其中，rng开头的变量为Range类型，带Test后缀的指向源工作簿，其余指向目标工作簿。测试时遇到以下问题：

• 首次复制粘贴通常成功，但第二个操作会触发1004错误，进入调试器后停在包含xlPasteValues的语句处；
• 按F5或F8续行后该语句可执行成功，但后续同类语句仍会重复出现此问题；
• 尝试使用错误处理L_E1004未出现循环，但曾因编码错误导致死循环。

怀疑是代码执行速度快于运行时时序问题，现咨询两个问题：

• 是否可以添加短延迟让运行时跟上？
• 当前的复制粘贴实现方式是否有优化空间？

内容的提问来源于stack exchange，提问作者Perry Sugerman