エクセルで実行エラー”１００４”

エクセルでファイルを開くと　下記メッセージが表示されます
実行エラー”１００４”
アプリケーション定義またはオブジェクト定義エラー
デバッグを実行sると添付画面が表示される

解決する手順を教えてください

質問者からの補足コメント

• すみません、休暇で間延びしてしまい。ペイント貼り付け画像が読めず失礼しました。
  テキストを以下貼り付けます。⇒行のコードに黄色セルなっています（テキストなので無色）
  ページ分割します。
  Sub auto_open()
  '自動で見積りデータ画面を開く
  'Application.CommandBars("Standard").Visible = False
  'Application.CommandBars("Formatting").Visible = False
  'Application.DisplayFormulaBar = False
  'Application.CommandBars("Chart").Visible = False
  Worksheets("見積りデータ").Select
  Worksheets("見積りデータ").OnDoubleClick = "受注"
  続く

    補足日時：2020/08/19 14:51

• 続く
  Range("a6").End(xlDown).Select
  ⇒ActiveCell.Offset(1, 0).Activate
  ActiveCell.Value = "=r[-1]c[0]+1"
  Range("j6:j8").Select
  Selection.Copy
  Range("B6").End(xlDown).Select
  ActiveCell.Offset(1, 8).Activate
  Selection.PasteSpecial Paste:=xlFormulas, operation:=xlNone, skipblanks:=False, Transpos
  続く

    補足日時：2020/08/19 14:55

• e:=False
  Application.CutCopyMode = False
  Range("m6:m8").Select
  Selection.Copy
  Range("B6").End(xlDown).Select
  ActiveCell.Offset(1, 11).Activate
  Selection.PasteSpecial Paste:=xlFormulas, operation:=xlNone, skipblanks:=False, Transpose:=False
  Application.CutCopyMode = False
  Range("B5").End(xlDown).Select
  ActiveCell.Offset(1, 0).Activate
  End Sub　
  以上

    補足日時：2020/08/19 14:56

No.2 ベストアンサー 回答者： goold-man 回答日時： 2020/08/07 14:20

追加

Cellsの指定ミス：Cells(0, 1)→Cells(x, 1)
Rangeの範囲指定ミス:Range(Cells(1, 1), Cells(2, 2))→Range(ws.Cells(1, 1), ws.Cells(2, 2))・・・

No.1 回答者： goold-man 回答日時： 2020/08/07 14:12

見えません！

セルの行列の数値を正しくセットしていないのでは？
2013の場合、行の値の範囲は、1～1048577、列の値の範囲は1～16384の制限あり。
（VBAで変数を使って行列をセットしている場合は要注意）