【求助】excel vba中复制粘贴后程序自动退出了？

[wxh5]

Range("a1:e" & i).Value = Range("a1:e" & i).Value

执行完这一句，整个VBA就退出了，下面的句子都不会被执行到

我改了种说法：
'Worksheets("sheet1").Range("a1:e" & i).Copy
'Worksheets("sheet1").Range("a1").PasteSpecial xlPasteValues

也不行，这段代码执行完后就退出了，真郁闷啊！这代码应该没问题吧？

另外还有一个问题：在当前的用户窗体上执行完程序，想删除自己，要如何操作？

就在当前文件上操作，就一个用户窗体，求一段简洁的代码。谢了！！:blush;



附，真奇怪，我自己另外创建了一个空白的XLS再用这句代码就没问题……怪了啊！
但是我把代码加在我自己已经修修补补了N次的窗体中，哪怕加在自定义变量之后的第一句，也是一执行完马上就退出了，这是什么情况？

上传附件，我把自己的代码全都删了，只留这一句，也是运行完就退出，这是见鬼了吗？？

[wxh5]

已有附件，望高手答疑