لا استطيع الا ان اتدخل بهذا الكود
 
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