Sub Export1()
Dim i&, Cel As Range
Range("H2:H65000").ClearContents
For Each Cel In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
Cel.Offset(, 6) = Split(Cel, " ")(0)
For i = 1 To UBound(Split(Cel, " "))
Cel.Offset(, 7) = Trim(Cel.Offset(, 7) & " " & Split(Cel, " ")(i))
Next
Next
End Sub