最終行の指定について教えてください。 複数シートを1シートへまとめる下記マクロでは各シートの6行目を

最終行の指定について教えてください。
複数シートを1シートへまとめる下記マクロでは各シートの6行目をコピーしていました。
しかし図のように6行目からA列最終行までコピーする必要があり変更したいのですができません。助けてください。
Dim A
For i = 2 To Sheets.Count '7つ目のシートから最終シートまでをループ
'まとめシートの最終セルを取得
Set A = Sheets("matome").Cells(Rows.Count, "A").End(xlUp)
'データ部分のみを、まとめシートにコピー
Sheets(i).Rows(6).Copy A.Offset(1, 0)
Next

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2022/10/04 19:19

https://kosapi.com/post-2790/

例題のＡ１をＡ６にすれば連なるデータ範囲全てになるかと。

Sheets(i).Range("A6").CurrentRegion.Copy

この回答へのお礼

勉強になりました。ありがとうございます♪

お礼日時：2022/10/05 08:47