Number count and sort macro

In column A and column C for the first 10 rows only I have data in a cell followed by a number (possibly two numbers sometimes separated by a comma) in the same cell. I want a macro to tell me the lowest number that it finds and the word it was found beside. I have attached a sample workbook showing a before and after.

samplesheet.xlsm

Any ideas? Perhaps something with Text to Columns might help but I still haven't found a good way yet.

Try this

Sub test()
    Dim rng As Range, r As Range, n As Long, m As Object
    Dim temp As String, myStr As String
    Set rng = Columns("a:c").SpecialCells(2)
    If rng Is Nothing Then Exit Sub
    With CreateObject("VBScript.RegExp")
        .Global = True
        For Each r In rng
            .Pattern = "(\D+) (\d+)(.*)"
            If .test(r.Value) Then
                myStr = .Replace(r.Value, "$1")
                n = n + 1
                Cells(n, "m").Resize(, 2).Value = _
                Split(.Replace(r.Value, "$1 $2"))
                temp = .Replace(r.Value, "$3")
                If temp <> "" Then
                    .Pattern = "\d+"
                    For Each m In .Execute(temp)
                        n = n + 1
                        Cells(n, "m").Resize(, 2).Value = _
                        Array(myStr, m.Value)
                    Next
                End If
            End If
        Next
    End With
    Range("n1").CurrentRegion.Value = Range("n1").CurrentRegion.Value
End Sub

Thanks Jindon. Works perfect if there is only one word. However at times the cell will be "Test Test 12" or a different number or perhaps "Test Test Test 12". Is there a way to deal with those possible differences in the macro? Thanks!

Need to see variety of data and the desired result from there.

Here you go.

Thanks again!

samplesheetNEW.xlsm

OK

Sub test()
    Dim rng As Range, r As Range, n As Long, m As Object
    Dim temp As String, myStr As String
    Set rng = Columns("a:c").SpecialCells(2)
    If rng Is Nothing Then Exit Sub
    With CreateObject("VBScript.RegExp")
        .Global = True
        For Each r In rng
            .Pattern = "(\D+\S) (\d+)(.*)"
            If .test(r.Value) Then
                myStr = .Replace(r.Value, "$1")
                n = n + 1
                Cells(n, "m").Resize(, 2).Value = _
                Split(.Replace(r.Value, "$1" & Chr(2) & "$2"), Chr(2))
                temp = .Replace(r.Value, "$3")
                If temp <> "" Then
                    .Pattern = "\d+"
                    For Each m In .Execute(temp)
                        n = n + 1
                        Cells(n, "m").Resize(, 2).Value = _
                        Array(myStr, m.Value)
                    Next
                End If
            End If
        Next
    End With
    Range("n1").CurrentRegion.Value = Range("n1").CurrentRegion.Value
End Sub

Awesome! Thankks!