VBAオートメーションエラーについて

この投稿を読む、

最近、シート( "Scrpit")からシート( "picking_list")、に自動的にコピーすることができるマクロをコーディングしようとします.

ワークブックを開くたびに、最初にマクロを実行するたびに成功しましたが、シート内のデータ( "picking_list")、

と2回目の時間を実行すると、このエラーが表示されます. '-2147417848(80010108)':オートメーションエラー、とExcelは
クラッシュ！

エラーメッセージのスクリーンショットのリンク: https://imgur.com/a/snxjkg7.

これは私のコードです sub create_cm()
DIM LR整数
ThisWorkbook.Sheets( "scrpit").を有効にする LR= thisWorkbook.Sheets( "Scrpit").セル(1048576、 "A").終了(XLUP).ROW
ThisWorkbook.Sheets( "Scrpit").行( "2:"&lr).選択
selection.copy
シート( "picking_list").を有効にする シート( "picking_list")行(6).選択
selection.insert shift:= XLDOWN
application.cutcopyMode= false
end sub

これはシート( "スクリプト")です. https://imgur.com/a/pftwhne.

これはシートです( "picking_list"): https://imgur.com/a/5ayvjpr.

この問題を解決するのを手伝うことができる人がいます、ありがとうございました！