Removing everything but numbers from cell

[jwdemo]

I have a worksheet and column B has a list of departments and supplier order numbers in it. I'm wanting to get rid of everything but the numbers.
Some examples in these cells are:

Meat:FZN:Retail Ready:160501
Local Meat:Pork:130517
Local Meat:Beef-SweetGrass:110005
Dairy:Food Service:220017


Is there a way to get this done with a macro or a formula in an adjacent column?

 

[jwdemo]

would be fine if you'll be addressing to whom is your post because we don't know which solution is chosen
our posts are usual to you

I'm using this formula "=right(cELL,6)+0".

 

[sandy666]

my dear friend
use
@ and type letter by letter of the name of person

like @jwdemo

anyway that's fine if it works for you
Have a nice day

 

[jolivanes]

Try

Sub Maybe()
With Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Offset(, 1)
    .Formula = "= TRIM(RIGHT(SUBSTITUTE(RC[-1],"":"",REPT("" "",LEN(RC[-1]))),LEN(RC[-1])))"
    .Value = .Value
End With
End Sub

 

[Rick Rothstein]

Since you only want the last 6 digits, try this...

Sub SixDigitsAtEnd()
  [A:A].Copy [B1]
  [B:B].Replace "*:", "", xlPart, , , , False, False
End Sub