Sub test()
Dim lrow&, i&, arr(), itxt$
Dim sht As Worksheet, ikey
Set sht = Sheets(1)
With sht
    lrow = .Range("b" & .Rows.Count).End(xlUp).Row
    arr = .Range(.[b2], .Range("e" & lrow)).Value
    .Range(.[b2], .Range("e" & lrow)).ClearContents
End With
With CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(arr)
        itxt = ""
        For lrow = 1 To UBound(arr, 2) - 1
            itxt = itxt & arr(i, lrow) & "|"
        Next lrow
        If .Item(itxt) < arr(i, UBound(arr, 2)) Then .Item(itxt) = arr(i, UBound(arr, 2))
    Next i
    i = 0
    For Each ikey In .keys
        i = i + 1
        For lrow = 0 To UBound(Split(ikey, "|"))
            arr(i, lrow + 1) = Split(ikey, "|")(lrow)
        Next lrow
        arr(i, UBound(arr, 2)) = .Item(ikey)
    Next ikey
End With
With sht
    .Range("b2").Resize(i, UBound(arr, 2)) = arr
End With
End Sub