Help Needed to Remove Text From Cells

[JPatty]

I need help with VBA code to remove letters preceding numbers in columns B and C starting at B9 looping through.
Sheet1 is present state and the code would need to change the cells to appear like in Sheet2.
Ay help would be appreciated!

Remove Text Test.xlsx
	C
18
Sheet1

Remove Text Test.xlsx
	B
25
Sheet2

 

[Micron]

I see no sample data at all? I tried copy/paste anyway and got nothing.

 

[JPatty]

My apologies.

Remove Text Test.xlsx
	A	B	C	D	E
1
2			Red
3			Yellow
4			Black
5			Blue
6
7
8		T&N	T&N2
9		Red-Blue: 123-456	Red-Blue: 123,456,678,123
10		Blue-Red Purple: 678-789	Yellow-Pink Purple: Red 678,789
11		Yellow-Pink Purple: 678-678	Yellow-Pink Purple: 678-678
12		Yellow-Pink Purple: Red 678,789	Blue-Red Purple: 678-789
13		Red-Blue: 123,456,678,123	Red-Blue: 123-456
14
15
16
17
18
19
20
21
Sheet1

Remove Text Test.xlsx
	A	B	C	D	E
1
2			Red
3			Yellow
4			Black
5			Blue
6
7
8		T&N	T&N2
9		123-456	123,456,678,123
10		678-789	678,789
11		678-678	678-678
12		678,789	678-789
13		123,456,678,123	123-456
14
15
16
17
18
19
20
21
Sheet2

 

[Micron]

This assumes the number portion is always preceded with a ":"
Substitute your sheet name and try

Sub RemoveText()
Dim rng As Range, rng2 As Range
Dim Lrow As Long

Lrow = Range("B:C").Find("*", , , , xlByRows, xlPrevious).Row
Set rng = Sheets("4").Range("B9:C" & Lrow)
     For Each rng2 In rng
          If InStr(1, rng2, ":") > 0 Then
               rng2.Value = Mid(rng2, InStr(1, rng2, ":") + 1)
          End If
     Next

End Sub