Your code will only work if there is exactly two words in each cell. On the off chance there could be less or more, here is some code that will move the first word into the next column and keep the remainder of the words (if any) in the current column and it will also skip over empty cells if any...

Sub SplitAndSwap()
Dim X As Long
Dim LastRow As Long
Dim Parts() As String
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
On Error GoTo Continue
For X = 1 To LastRow
With Cells(X, 1)
Parts = Split(.Value)
.Offset(0, 1).Value = Parts(0)
Parts(0) = ""
.Value = Trim(Join(Parts))
End With
Continue:
Next
End Sub

--
Rick (MVP - Excel)


"Gary''s Student" wrote in message ...
Sub splitum()
n = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To n
With Cells(i, 1)
s = Split(.Value, " ")
.Value = s(1)
.Offset(0, 1).Value = s(0)
End With
Next
End Sub

--
Gary''s Student - gsnu200835


"egun" wrote:

If your data is in Column A:

in Column B, add the formula =LEFT(A1,FIND(" ",A1)-1)
(this separates out the "Glass" part)

in Column C, add the formula =RIGHT(A1,LEN(A1)-FIND(" ",A1))
(this gets the rest of the text)

Then fill down as many rows as you have data.

This will work no matter what the first word (Glass in this case) is - it
will always separate the first word from the rest of the cell's text.

HTH,

Eric