How do I split numbers and data into 2 seperate cells

[ghrek]

I have a workbook that has numbers and data in the same cell but trying to split into 2 seperate cells. Any ideas on how I can do it.

They are all in column B and need split into column's B & C

example shown below

?10 VOUCHER GTR 92087

ABERDEEN TAXI 92030

ABTA COMMISSION ERTC 92334

 

[JEC]

You probably mean this

Sub jec()
 Dim it, sq
 For Each it In Range("B1", Range("B" & Rows.Count).End(xlUp))
   sq = StrReverse(Split(StrReverse(it), " ")(0))
   it.Offset(, 1).Value = sq
   it.Value = Trim(Replace(it, sq, ""))
 Next
End Sub

 

[jtakw]

Hi,

Not sure what you want, as your description is not clear, and you did not show any expected results:

Book3.xlsx
	A	B	C
1	?10 VOUCHER GTR 92087	?10 VOUCHER GTR	92087
2	ABERDEEN TAXI 92030	ABERDEEN TAXI	92030
3	ABTA COMMISSION ERTC 92334	ABTA COMMISSION ERTC	92334
Sheet1047

Cell Formulas
Range	Formula
B1:B3	B1	=LEFT(A1,LEN(A1)-LEN(C1)-1)
C1:C3	C1	=RIGHT(SUBSTITUTE(A1," ",REPT(" ",99)),99)+0