Sub vesovka()
Dim re, ex, c

Set re = CreateObject("vbscript.regexp")
With re
    .Global = False
    .Pattern = "\b([1-9]\d+пак\*){0,1}[1-9]\.{0,1}\d+г"
    .IgnoreCase = True
    For Each c In Range("A1:A2") ' <- задайте свой диапазон
        Set ex = .Execute(c.Value2)
        If ex.Count >  0  Then
            'вывод "весовки" в окно отладки
            Debug.Print ex( 0 )
            'вывод "весовки" в той же строке на 8 колонок правее
            'c.Offset(0, 8).Value2 = ex(0)
        End If
    Next
    Set ex = Nothing
    Set c = Nothing
End With
    
Set re = Nothing

End Sub