Ziffer aus Text mit Ziffer auslesen und in nebenstehender Spalte einsetzen

Ich möchte aus einer Tabelle, die unterschiedliche Artikelangaben und unterschiedlicher Gramaturen enthält, die Zahlen auskopieren und in das nebenstehende Feld einsetzen lassen
um dann in einer anderen Spalte den Grundpreis auszurechnen...


z.B.

Pom-Bär - Original - 75g Beutel

duplo oder kinder Riegel - 18 Stück - je 324/378g Packung

nimm2 - Lachgummi - je 225-325g Beutel


(jeweils in einem Feld)


Ergebnis soll sein: (in 3 Spalten)

Pom-Bär - Original - 75g Beutel 75

duplo oder kinder Riegel - 18 Stück - je 324/378g Packung 324 378

nimm2 - Lachgummi - je 225-325g Beutel 225. 325


ich kenne mich leider mit Sverweis nicht so gut aus...
Wer rettet mich?
Dankeschön

Sub ZuVielZuckerMachtKrank()
    Set regx = CreateObject("vbscript.regexp")  
    regx.IgnoreCase = True
    regx.Pattern = "(\d+)((/|-)(\d+))?((m|k)?g)"  
    
    With ActiveSheet
        For Each cell In .Range("A2:A" & .Cells(Rows.Count, "A").End(xlUp).Row)  
            Set matches = regx.Execute(cell.Value)
            If matches.Count > 0 Then
                cell.Offset(0, 1).Resize(1, 3).Value = Array(matches(0).Submatches(0), matches(0).Submatches(3), matches(0).Submatches(4))
            End If
        Next
    End With
End Sub