ExcelVBA タブで区切られたデータをクリップボード使わずに指定セルから貼り付け

Sub PasteTabDelimitedDataWithoutClipboard()

    Dim Data As String
    Dim Rows() As String
    Dim Cells() As String
    Dim r As Long, c As Long
    Dim StartCell As Range

    ' タブで区切られたサンプルデータ
    Data = "Name" & vbTab & "Age" & vbTab & "Address" & vbCrLf & _
           "John" & vbTab & "25" & vbTab & "Street 123" & vbCrLf & _
           "Jane" & vbTab & "30" & vbTab & "Avenue 456"

    ' データを行ごとに分割
    Rows = Split(Data, vbCrLf)

    ' 開始セルを設定
    Set StartCell = ThisWorkbook.Sheets("Sheet1").Range("B2")

    ' 各行とセルのデータを処理
    For r = LBound(Rows) To UBound(Rows)
        Cells = Split(Rows(r), vbTab)
        For c = LBound(Cells) To UBound(Cells)
            StartCell.Offset(r, c).Value = Cells(c)
        Next c
    Next r

End Sub