フォルダに入っているエクセルファイルをコピーし、別エクセルファイルのシートへ貼り付けたい。

vbaを使用
フォルダに入っているエクセルファイルのシートをコピーし、別エクセルファイルに張り付けたい。

実現したいこと

１．コピーしたいエクセルファイルのシート指定
２．貼り付けたいエクセルファイルのシート指定
３．貼り付けた後はコピー元のファイルは削除される

コードが間違っているのか、その他の要因かわかりません
ご協力よろしくお願いします。

発生している問題・エラーメッセージ

エラーメッセージ VBA エラー 438「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」

該当のソースコード

ソースコード Sub ファイルコピー() '探索するフォルダを指定します。 Dim Path, FileName, FilePath 'フォルダパスを指定します。 Path = ThisWorkbook.Path & "\A\" 'ファイル名を取得 FileName = Dir(Path & "*.xls") 'ファイルのフルパス指定 FilePath = Path & FileName 'コピー元となるブックを開く Workbooks.Open FilePath 　’コピー 　Workbooks(FileName).Worksheets("作業指示書").Range("A1:AB51").copy_ 　Workbooks("案件フォルダ製作システム.xlsm").Worksheets("読み取り").Range 　("A1:AB51") 'コピー元のブックを削除する Workbooks("*.xls").kill End Sub

試したこと

＊、”の位置等を確認
ファイル名やシート名の確認

最後まで読んでいただきありがとうございます。
どの箇所が間違っているのかご指摘よろしくお願いいたします。