（５）CSVファイルの取り込み

は単純なテキストファイルでレコード・フィールドに区切り文字，が入っています。
エクセルの開くでCSVファイルを開くことができます。
ＶＢＡではその操作を自動化します。
Basic等のプログラムを勉強した人なら抵抗はないですが初めての人は
Open FileNamePath For Input As #ch1
が理解しにくいと思います。
テキストファイルを開く命令ですが部品として使ってください。
SPLIT関数も指定した文字区切りで配列にデータを渡す関数ですがこれも部品として使ってください。
Sub torikomi()
    Dim FileNamePath As Variant
    Dim textline, csvline() As String
    Dim Rowcnt, ColumNum As Integer
    Dim ch1 As Long
    Worksheets("名簿").Cells.Clear
    ch1 = FreeFile
    FileNamePath = "d:\移行データ\meibo.csv"
    Open FileNamePath For Input As #ch1
    Rowcnt = 1
    Do While Not EOF(ch1)
        Line Input #ch1, textline
        csvline() = Split(textline, ",")
        Range(Worksheets("名簿").Cells(Rowcnt, 1), _
              Worksheets("名簿").Cells(Rowcnt, UBound(csvline()) + 1)) = csvline()
        Rowcnt = Rowcnt + 1
    Loop
End Sub