全体のデータをまとめる１つのファイルに、複数のファイルから、一行ずつ下げていく形で、データを貼り付けたい。

Question

前提・実現したいこと

データをまとめる一つのファイルに、
複数のファイルから、値のデータを貼り付けたいです。
それぞれのファイルのデータを、一行ずつ下げていく形で貼り付けていきたいのですが、
ループ処理がうまくできません。

どうしたら、ループを上手く回せるようになるでしょうか？

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

1004:アプリケーション定義またはオブジェクト定義のエラーです。

該当のソースコード

Sub 全体ファイルにコピー()
    
    Dim filepath As String, cnt As Long '変数の宣言
    n = 2
    Workbooks.Open ("XXX\Dスコア\全体データ.xlsx")
    Const folderpath  As String = "XXX\Dスコア\" '定数の宣言
    filepath = Dir(folderpath & "*.csv") 'dir関数でフォルダの中のファイル名を返します
    Do While filepath <> "" '変数に空白が入るまで処理を繰り返す
    Workbooks.Open (folderpath & filepath) 'ワークブックを開いていく
    
'--------実行させたい処理---------
    
    Sheets(1).Select
    Range(Cells(1, 1), Cells(1, 15)).Select
    
    Selection.Copy
    
    Workbooks("全体データ.xlsx").Sheets(1).Range(Cells(n, 2)).PasteSpecial _
        xlPasteValuesAndNumberFormats
    'コピー中状態を解除
    Application.CutCopyMode = False
    
    
    n = n + 1
'--------実行させたい処理---------
    
    Workbooks(filepath).Close SaveChanges:=True
    '変数にまだ入力されていないファイル名を格納する
    filepath = Dir()
    
    Loop 'Do While に戻る
    Workbooks("XXX\Dスコア\全体データ.xlsx").Close SaveChanges:=True



End Sub

試したこと

全体データをまとめるブックの、
２行目から、3行目4行目…と各ブックごとに、順に貼り付けを行いたいので、
最初にn=2と指定し、
一つのループが終わるごとに、値が増えていくようにしたのですが、
下記の箇所で、エラーが出てしまいます。
Range(Cells(n, 2))の記述方法が間違っているかもしれない、と考えています。

Workbooks("全体データ.xlsx").Sheets(1).Range(Cells(n, 2)).PasteSpecial _
xlPasteValuesAndNumberFormats

Answer 1

Workbooks("全体データ.xlsx").Sheets(1).Cells(n, 2).PasteSpecial xlPasteValuesAndNumberFormats

Comments

[YYJP]

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

[YYJP]

こんなミスだったとは…

[jinoji]

ちなみに、
Workbooks("全体データ.xlsx").Sheets(1).Range("B" & n).PasteSpecial xlPasteValuesAndNumberFormats
とすることもできます。わかりやすい方をどうぞ。

[YYJP]

すみません、今気が付きました。nで書くこともできるんですね。ＶＢＡをきちんと学ぶ必要性を感じました。
ありがとうございました。