Sub 各シートのデータを一つのシートにまとめる()

    For シート番号 = 2 To 4 '左から2番目～4番目のシートを順番に処理
        
        '各シートを開く
        Worksheets(シート番号).Activate
        
        '各シートの最終行を取得する
        最終行_各シート = Cells(Rows.Count, "A").End(xlUp).Row
        
        '各シートのA列1行～C列最終行までコピーする
        Range(Cells(1, "A"), Cells(最終行_各シート, "C")).Copy
        
        'シート1（一番左）を開く
        Worksheets(1).Activate
        
        'シート1の最終行を毎回取得する
        最終行_シート1 = Cells(Rows.Count, "A").End(xlUp).Row
        
        'シート1の最終行の1行下にコピーした内容を貼り付ける
        Cells(最終行_シート1 + 1, 1).PasteSpecial
    
    Next シート番号

End Sub