【エクセルVBA】フォルダ内の全ファイルのデータを取り出す

Sub OpenCSVfile()
   Dim buf As String
   Dim Path As String
   
   '  このファイルがあるフォルダのパスを取得
   Path = ThisWorkbook.Path
   
   'CSVファイルだけを取ってくる
   buf = Dir(Path & "\" & "*.csv")
   '該当するファイルが無くなるまでループ
   Do While buf <> ""
       
       '見つけたファイルを開く
       Workbooks.Open Path & "\" & buf
       
       'シートをまるごとコピー
       Worksheets(1).Copy After:=ThisWorkbook.Worksheets("Sheet1")
               
       'CSVファイルを閉じる
       Workbooks(buf).Close
       
       '次のファイルを取得
       buf = Dir()
   Loop
End Sub

Sub OpenCSVfile()
  Dim buf As String
  Dim Path As String
  Dim LastRow As Long
    
  '  このファイルがあるフォルダのパスを取得
  Path = ThisWorkbook.Path
  
  'CSVファイルだけを取ってくる
  buf = Dir(Path & "\" & "*.csv")
  '該当するファイルが無くなるまでループ
  Do While buf <> ""
      
      '見つけたファイルを開く
      Workbooks.Open Path & "\" & buf
      
      '開いたCSVファイルのコピーしたい範囲を選択
      Range("A1:F5").Copy
      
      LastRow = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
      
      '貼り付け
      If LastRow = 1 And ThisWorkbook.Worksheets(1).Cells(1, 1) = "" Then '最終行が1の時かつセルA1が空欄の時（→シートに何も書かれていない時）は１行目に転記
        ThisWorkbook.Worksheets(1).Cells(1, 1).PasteSpecial
      Else 'A1セルに既に文字が入っている時は最終行+１行目に転記
          ThisWorkbook.Worksheets(1).Cells(LastRow + 1, 1).PasteSpecial
      End If
      
      'CSVファイルを閉じる
      Workbooks(buf).Close
      
      '次のファイルを取得
      buf = Dir()
  Loop
End Sub