Hi.

i'm solved this way.

Sub Test()
Dim lasta, laste As Long
Dim nam, nam1, c As Range
lasta = Cells(Rows.Count, 1).End(xlUp).Row
Set nam = Range("a1:a" & lasta)
nam.Copy [e1]
nam.Offset(0, 4).RemoveDuplicates Columns:=1, Header:=xlYes
laste = Cells(Rows.Count, 5).End(xlUp).Row
Set nam1 = Range("e2:e" & laste)
For Each c In nam1
c.Offset(, 1) = Application.WorksheetFunction.SumIf(nam, c, nam.Offset(0, 1))
Next

End Sub

Thank you!!!