Разделитель в данном случае - пробел.
Потребуются две операции:
1. Преобразовать строку в массив.
2. Вставить массив в лист.
Пишу без IDE, если что подкорректируйте:
Dim sSource As String
Dim oArr As Variant
oArr = Split(sSource, " ")
Range(Cells(1, 1), Cells(1, Ubound(oArr)).Value = oArr