Split Function
Split cells value into Multiple
Private Sub CommandButton1_Click()
Range("C1").Value = "First"
Range("D1").Value = "Second"
For i = 2 To 145
sp = Split(Cells(i, 2), " ")
Cells(i, 3).Value = sp(0)
Cells(i, 4).Value = sp(1)
Next
End Sub