لا استطيع الا ان اتدخل بهذا الكود
Sub sumif_order()
Range("e3:f100").Clear
LR = Cells(Rows.Count, 1).End(3).Row
Set Myrg = Range("a3:a" & LR)
For I = 3 To LR
If Application.CountIf(Range("a3:a" & I), Range("a" & I)) = 1 Then
Cells(k + 3, 5) = Range("a" & I)
k = k + 1
End If
Next
LRe = Cells(Rows.Count, 5).End(3).Row - 2
Range("E3:F" & LRe).Sort Key1:=Range("E1:E" & LRe), Order1:=xlAscending, Header:=xlNo
Range("f3:f" & LRe + 2).Formula = "=SUMIF($A$3:$A$100,E3,$B$3:$B$100)"
End Sub