[VBA ] VBA執行後excel整個崩潰

[paul60209 (我是保羅小小)]

各位版上的強者們，

最近遇到一個問題，我想執行一支VBA巨集，

內容大致是把資料從第一個工作表複製出來，

然後整行插入在第二個工作表。

程式第一次執行時，不會出錯，完整的達到我想要的功能，

但我把工作表二的內容刪除，回復到原始狀態後，

第二次執行就會跳出Automation的錯誤，

然後整個Excel就當掉，也無法偵錯QQ

上網爬了文也找不太到相關資訊！

錯誤截圖如下：https://imgur.com/a/SnxjKg7

CODE

Sub create_CM()
Dim LR, TLR As Integer
    With ThisWorkbook.Sheets("底稿")
        .Activate
        LR = .Cells(1048576, "A").End(xlUp).Row
        .Rows("2:" & LR).Select
        Selection.Copy
        Sheets("模板-對料單").Activate
        Sheets("模板-對料單").Rows(6).Select
        Selection.Insert Shift:=xlDown
        Application.CutCopyMode = False
    End With

希望有高手能出面解答，因為從未遇過這種錯誤訊息，

想知道bug在哪，或者有什麼其他方式可以繞過去，

讓程式能順利運行，謝謝！

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.135.50.86
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1524218526.A.C3C.html
→ newton41: 開頭加一句on error resume next 執行會如何？
→ paul60209: 直接excel crash掉，必須用工作管理員強制關閉
推 coyoteY: Excel,OS版本?直接crash,把Excel重灌,更新跑完再試試
→ newton41: 複製插入的資料量太大了我猜，把它分成一列列來做，可以
→ newton41: 的話用傳值的方式不要複製插入的，試試看。
→ paul60209: Excel 2016 x64   OS Win10 x64
推 coyoteY: Excel207 win7 64測試沒問題,可照newton41兄的改傳值試試
※ 編輯: paul60209 (114.36.5.220), 09/01/2018 10:25:12