Split To Columns

[billandrew]

looking to Split Data in Column A into column b and column c.

the below removes the text to the left of the coma.

Thanks

Sub SplitComma()
Dim d As Range
For Each d In Range("A2", Range("A" & Rows.Count).End(xlUp))
d.Value = Split(d.Value, ", ")(1)
Next d
End Sub

 

[MARK858]

Why not use Text to Columns?

 

[billandrew]

Yes I guess I could. TY