Sub TestX()
    Dim rng As Range
    Dim lngI As Long
    Dim lngRows As Long
    Dim sum As Long
    
    Set rng = Cells( 1 ,  1 ).CurrentRegion
    
    lngRows = rng.Rows.Count
    
    ' Сортируем данные.
    rng.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:= 1 , MatchCase:=False, Orientation:=xlTopToBottom
    
    sum =  0 
    
    On Error Resume Next
    
    For lngI =  1  To lngRows
        If rng.Cells(lngI,  1 ).Value = rng.Cells(lngI,  1 ).Offset( 1 ,  0 ).Value Then
            sum = rng.Cells(lngI,  1 ).Offset( 0 ,  1 ).Value + rng.Cells(lngI,  1 ).Offset( 1 ,  1 )
            rng.Cells(lngI,  1 ).Offset( 0 ,  3 ) = sum
            rng.Cells(lngI,  1 ).Offset( 0 ,  2 ) = rng.Cells(lngI,  1 ).Value
        ElseIf rng.Cells(lngI,  1 ).Value <> rng.Cells(lngI,  1 ).Offset( 1 ,  0 ).Value _
          And rng.Cells(lngI,  1 ).Value <> rng.Cells(lngI,  1 ).Offset(- 1 ,  0 ).Value Then
            sum = rng.Cells(lngI,  1 ).Offset( 0 ,  1 ).Value
            rng.Cells(lngI,  1 ).Offset( 0 ,  2 ) = rng.Cells(lngI,  1 ).Value
            rng.Cells(lngI,  1 ).Offset( 0 ,  3 ) = sum
        End If
    Next lngI
    
    Range("C:D").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

Sub GroupBy()
    Dim varIn( 1  To  6 ,  1  To  2 ) As Variant
    Dim varOut( 1  To  6 ,  1  To  2 ) As Variant
    Dim intI As Integer
    Dim intJ As Integer
    Dim intK As Integer
    Dim bln As Boolean
    
    varIn( 1 ,  1 ) = "Сахар"
    varIn( 2 ,  1 ) = "Мука"
    varIn( 3 ,  1 ) = "Рис"
    varIn( 4 ,  1 ) = "Сахар"
    varIn( 5 ,  1 ) = "Рис"
    varIn( 6 ,  1 ) = "Рис"
    
    varIn( 1 ,  2 ) =  6 
    varIn( 2 ,  2 ) =  100 
    varIn( 3 ,  2 ) =  10 
    varIn( 4 ,  2 ) =  7 
    varIn( 5 ,  2 ) =  2 
    varIn( 6 ,  2 ) =  8 

    intK =  1 
    bln = False

    For intI = LBound(varIn,  1 ) To UBound(varIn,  1 )
        For intJ = LBound(varOut,  1 ) To UBound(varIn,  1 )
            If varIn(intI,  1 ) <> varOut(intJ,  1 ) Then
                bln = False
            Else
                bln = True
                Exit For
            End If
        Next intJ
        If Not bln Then
            varOut(intK,  1 ) = varIn(intI,  1 )
            varOut(intK,  2 ) = varIn(intI,  2 )
            intK = intK +  1 
        Else
            varOut(intJ,  2 ) = varOut(intJ,  2 ) + varIn(intI,  2 )
        End If
    Next intI
            
    For intK = LBound(varOut,  1 ) To UBound(varOut,  1 )
        If Not IsEmpty(varOut(intK,  1 )) Then
            Debug.Print varOut(intK,  1 ) & " - " & varOut(intK,  2 ) & " кг."
        End If
    Next
End Sub