Sub Макрос5()
Dim s As String
  s = "1,2,3" & vbCrLf & "q,""w,g"",e" 'пример данных CSV
'устанавливаем параметры метода "текст по столбцам"
  With Cells.SpecialCells(xlCellTypeLastCell).Offset(1)  'ячейка за пределами использованного диапазона
    .Value = "z" 'что угодно
    .TextToColumns Destination:=.Cells, DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, OtherChar _
        :="=", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
    .ClearContents
  End With
'помещаем текст в буфер обмена
  With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") 'DataObject
    .settext s
    .putinclipboard
  End With
'выделяем ячейку для вставки и вставляем
  Range("B3").Select
  ActiveSheet.Paste
End Sub