VBA：複数シートのデータを一つのシートにまとめたい

Question

前提・実現したいこと

複数シートを一つのシートにまとめたいです。

以下のコードを実行したらまとめることはできたのですが、
全部のデータが反映できていなくて困っています。
コードの中で全部のデータ（１行目から最終行まで）をとってくるコードはいれているのですが、なぜかないデータなどがあり困っています。

ちなみに全シートには見出しがなく、
A1からデータが格納されています。

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

エラーメッセージ

該当のソースコード

Sub PutSheetsTogether()

  'まとめシートにまとめシート以外のシートを一つにまとめる

  Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = "まとめシート"
  
   
    'すべてのシートで処理
    Dim i As Long
    Dim w As Worksheet
   
    
    For i = 3 To Worksheets.Count
    
     Set w = Worksheets(i)
     
        'ただし、シート名が「まとめシート」を除く
        If w.Name <> "まとめシート" Then
        
            'コピーする各シートのデータで最も下にあるデータの行を探す（A列にデータがあることが前提）
            Dim From_Max_Row As Long
            From_Max_Row = w.Range("a" & Rows.Count).End(xlUp).Row
            
            '貼り付け先のシート「まとめシート」で最も下にあるデータの行を探す
            Dim To_Max_Row As Long
            To_Max_Row = Worksheets("まとめシート").Range("a" & Rows.Count).End(xlUp).Row
           
           '各シートのデータを1行目からすべてコピーし、「まとめシート」に貼り付けていく
           w.Rows("1:" & From_Max_Row).Copy Worksheets("中間シート").Range("a" & To_Max_Row)
           
        End If
    Next

Answer 1

To_Max_Row = Worksheets("まとめシート").Range("a" & Rows.Count).End(xlUp).Row + 1

Comments

[aaaskw123123]

ありがとうございます。無事できました！