Public Group As String
Public Name As String
Public Weight As Double

Public Sub CreatePivot()
    Dim pRow As ProductPivotRow, sKey As String, ProductInfos() As String
    Dim vData As Variant, sProductInfo As Variant, i As Long, vWeight As Double
    Dim ProductPivot As New Scripting.Dictionary, sGroup As String, sName As String
    'получим данные ячеек столбца данных о продуктах с разделителями ;
    vData = ActiveSheet.Range("A2:A100").Value
    For i = LBound(vData) To UBound(vData)
        'получаем массив данных о продуктах, разбив по разделителю ;
        ProductInfos = Split(vData(i, 1), ";")
        For Each sProductInfo In ProductInfos
            'создать ключ по группе продукта и его названию
            sGroup = FindProductGroup(sProductInfo)
            sName = FindProductName(sProductInfo)
            sKey = sGroup & "|" & sName
            If ProductPivot.Exists(sKey) Then
                With ProductPivot(sKey)
                    'добавляем вес продукта
                    .Weight = .Weight + GetProductWeight(sProductInfo)
                End With
            Else
                'иначе создать новый объект группировки по группе и наименованию
                Set pRow = New ProductPivotRow
                pRow.Group = sGroup
                pRow.Name = sName
                pRow.Weight = GetProductWeight(sProductInfo)
                ProductPivot.Add sKey, pRow
            End If
        Next
    Next
    'далее вывод данных ProductPivot в массив и на лист (это просто - перебор Items для Dictionary и число элементов легко находится поиском)
End Sub