初めまして。
VBA初心者で今勉強を頑張っています。
一度頑張って作ってみたのですが力が足りず作成できませんでした。
やりたいこととしては
・複数のCSVデータの特定の一列（B列のみ）を任意の一つのエクセルにまとめたいです。
・CSVデータ名やシートの名前は連続性を持たせることが可能です（1.csv 2.csv 3.csv ,,,）
私なりに作ってみたのがこちらです。

Sub file_tensya()
    
    
    Dim A, B, C, D
    
    For i = 1 To 4
        For j = 1 To 3000
            With ActiveSheet
                A = ThisWorkbook.Path 
                B = Format(i, "000") & ".csv"
                C = "Sheet1" 'シート名
                D = Cells(j + 2, 15).Address 'o列範囲選択
                '数式を使って、別ブックを参照
                .Cells(j, i) = "='" & A & "\[" & B & "]" & C & " '!" & D
                '数式を値に変換
                .Cells(j, i).Value = .Cells(j, i).Value
            End With
        Next
    Next
    
        
End Sub

新しいプログラミングでも問題ないので回答のほうをお願いしたいです。

Sub file_tensya()
    
    
    Dim A, B, C, D
    
    For i = 1 To 4
        For j = 1 To 5
            With ActiveSheet
                A = ThisWorkbook.Path
                B = Format(i, "000") & ".csv"
                C = Format(i, "000")
                D = Cells(j + 2, 15).Address 'o列範囲選択
                '数式を使って、別ブックを参照
                .Cells(j + 2, i) = "='" & A & "\[" & B & "]" & C & " '!" & D
                '数式を値に変換
                .Cells(j + 2, i).Value = .Cells(j, i).Value
            End With
        Next
    Next
    
        
End Sub

これでも全部＃REFになってしまい動きませんでした。
,xlsxだと動いたのは確認してます。

>D = Cells(j + 2, 15).Address 'o列範囲選択
O列3行目からの読み込みですね？

Sub test()
    Dim myDir$, fn$, t&, cols
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then myDir = .SelectedItems(1) & "\"
    End With
    If myDir = "" Then Exit Sub
    fn = Dir(myDir & "*.csv")
    cols = [sequence(1,500,9,0)]
    cols(15) = 1
    Application.ScreenUpdating = False
    With Sheets("sheet1")
        .UsedRange.Value = ""
        Do While fn <> ""
            t = t + 1
            .Cells(1, t) = fn
            With .QueryTables.Add("TEXT;" & myDir & fn, .Cells(2, t))
                .TextFileStartRow = 3
                .TextFileCommaDelimiter = True
                .TextFileColumnDataTypes = cols
                .Refresh
                .Delete
            End With
            fn = Dir
        Loop
        .Columns.AutoFit
    End With
    Application.ScreenUpdating = True
End Sub