以前シートを集めて1シートへ繋げる下記コードをご教授いただき作成しました。 今回すでに集めてある「ま

以前シートを集めて1シートへ繋げる下記コードをご教授いただき作成しました。
今回すでに集めてある「まとめ」シートのA列と一致する「集計」シートへ書き出したいのですが
何処を変更すればよいかわかりません。ご教授いただけませんでしょうか。よろしくお願いいたします。

Sub sample()
Dim keyCell As Range
Dim i As Integer
Set keyCell = Worksheets("集計").Range("A6")'集計表のコードセル
Do While keyCell.Text <> ""
For i = 2 To Sheets.Count
With Worksheets(i)
If LCase(StrConv(.Name, vbNarrow)) = LCase(StrConv(keyCell.Text, vbNarrow)) Then
.Range("A6").Resize(400, .Range("A6").CurrentRegion.Columns.Count).Copy keyCell
Exit For
End If
End With
Next
Set keyCell = keyCell.End(xlDown)
Loop
End Sub

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

• 実行後のイメージです

  
    補足日時：2022/08/29 20:39

No.1 回答者： oden1130 回答日時： 2022/08/29 22:52

？？？