マクロ 全シートの指定範囲をコピーして別シートに上から順に貼り付けたい

マクロ初心者です。

各シートの A1:L37 の範囲を

「まとめ」という名前のシートに上から順に貼り付けたいです。
シートは200シート程あります。

似たような質問(以下)をネット上で見つけ、
範囲をちょっと変えて試しに2シート分実行してみたのですが
-------------------------------------------------------
Sub sample()
Dim ws As Worksheet, i As Long
Cells.ClearContents
With Application
.ScreenUpdating = False
For Each ws In Worksheets
If ws.Name <> "まとめ" Then
ws.Range("A1:K37").Copy
Cells(Rows.Count, 1).End(xlUp).Offset(i).PasteSpecial _
Paste:=xlPasteValues
i = 1
End If
Next
.ScreenUpdating = False
.CutCopyMode = False
End With
End Sub
-------------------------------------------------------------------

3行目から2シート目の貼り付けが上書きされてしまいました。。。


どのように構文を直したら上手くいくでしょうか???

お手数ですがご教授いただけたら嬉しいですm(__)m
何卒、宜しくお願いします。

No.1 ベストアンサー 回答者： ママチャリ 回答日時： 2018/08/04 21:25

見た感じ、次の条件さえ満たしていれば、問題なく動きそうですけど、何がダメなのでしょうか？

【正しく動く条件】
①「まとめ」シートがアクティブな状態でマクロを起動すること
②「まとめ」以外のシートは、A列が空白でないこと（最終行以降は空白でも可）

この回答へのお礼

ママチャリ様

ありがとうございます!!動きました!!(TT)

初心者すぎてすみません、、、
ご指摘の通り、空白にしてしまっていたから上手く行かなかったみたいです。


本当にありがとうございます!!
大変助かりました!!

お礼日時：2018/08/06 15:26