Необходимо найти строки с одинаковым значениями

[bonderlogin]

Задача. Необходимо найти в столбце D строки с одинаковым значеним, а соответствующие им значения в столбце G просуммировать. Строки в столбце A и B оставить с наименьшим значением. C, E, F оставить без изменений.
Помогите пожалуйста, горит отчет!!!

[GRS1988]

По-моему Столбец С вам надо сгруппировать

[bonderlogin]

И что это даст??? Задача иная (см. начальный пост)

[Hugo121]

Половина работы - получаем суммы по уникальным.
Сохраните на другой лист.
Теперь удалите строки с бОльшими номерами, подтяните суммы с помощью ВПР()

Option Explicit

Sub Otbor()
    Dim a(), oDict As Object, i As Long, temp As String
    
    a = Range("D1:G" & Range("D" & Rows.Count).End(xlUp).Row).Value

    Set oDict = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(a)
        temp = Trim(CStr(a(i, 1)))
        If Not oDict.Exists(temp) Then
            oDict.Add temp, CStr(a(i, 4))
        Else
            oDict.Item(temp) = CStr(--oDict.Item(temp) + a(i, 4))
        End If
    Next

    With ThisWorkbook.Worksheets(1)
        .Range("I1").Resize(oDict.Count) = Application.Transpose(oDict.keys)
        .Range("J1").Resize(oDict.Count) = Application.Transpose(oDict.items)
    End With

End Sub