Extract last numbers in a column of varying lengths/formats

I have list of product names that I would like to extract the last numbers from. I have macro currently that does it for me, but the problem is the user has to enable macros for it to work. I am looking for a formula to take the place of this macro:

Function LastNum(s As String) As Long
  Static RX As Object
  
  If RX Is Nothing Then
    Set RX = CreateObject("VBScript.RegExp")
    RX.Global = True
  End If
  RX.Pattern = "[\d,]+(?=\D*$)"
  LastNum = RX.Execute(s)(0)
End Function

Attached is the workbook, thank you!

Please try at C2

=AGGREGATE(14,6,--MID(A2,MATCH(1,INDEX(-MID(A2,ROW(INDIRECT("1:50")),1),))-{0,1,2},{1,2,3}),1)

Borrow from blue part from AlKey

Try this:
Enter in B2 and copy down

Formula:

=-LOOKUP(1,-RIGHT(SUBSTITUTE(LEFT(A2,MATCH(1,INDEX(-MID(A2,ROW(A$1:A$99),1),0))),".","-"),{1,2,3,4}))

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.