【求助】Excel VBA连续复制粘贴的时候总是出现错误

xzmingcx

'==========================
'Liqudity
'==========================
Sh.Range("T" & SLR & ":T" & ELR).Copy
Ws.Range("Q2").PasteSpecial xlPasteValuesAndNumberFormats

Sh.Range("T" & SSR & ":T" & ESR).Copy
Ws.Range("Q" & ELR + 1).PasteSpecial xlPasteValuesAndNumberFormats

'==========================
'MCR
'==========================
Sh.Range("AC" & SLR & ":AC" & ELR).Copy
Ws.Range("O2").PasteSpecial xlPasteValuesAndNumberFormats

Sh.Range("AC" & SSR & ":AC" & ESR).Copy
Ws.Range("O" & ELR + 1).PasteSpecial xlPasteValuesAndNumberFormats


这是我一个宏的一小段code，我自己也学了VBA一段时间写过不少程序，但是每次要用到类似这种连续复制一段，粘贴一段，复制一段，粘贴一段的时候总是会有问题，而且每次的错误都不一样！！！
本人研究很久都百思不得其解，希望各位大大们能提供点良策。

我记得一开始写完的那几天跑的时候是完全没有问题的。
但是我完全没动过程序，过几天之后一跑它就提示我有问题了，问题都是出现在每一个“粘贴”行那里。它会提示debug，run time 1004，什么pastespecial out of range。
然后我什么都不改，继续按F5它又能粘贴成功。

有时就是按F5都还是提示错误，我就会把箭头移到上一个copy行里重新copy，再运行粘贴那行，它就又成功。。

实在是搞不懂为什么。。

希望有哪位大神能答疑解答，不胜感激！！！！