Split the Sentence
Sub Segregate_Words()
Dim i, j
j = 2
Dim max
Do Until Range("A" & j).Value = ""
max = Split(Range("A" & j), " ")
For i = 0 To UBound(max)
Cells(j, i + 2).Value = max(i)
Next
j = j + 1
Loop
End Sub