Hallo Hermann

Mit deinen Kenntnissen ,gehe ich davon aus ,das du das Makro schnell verstehst und anpassen kannst!

Beispiel

Worksheets 1 Spalte A Namen/Nummern

Worksheets 2 Spalte A Namen/Nummern

Worksheets 2 Spalte B Werte

Ausgabe

Worksheets 1 Spalte B Addierte Werte

Sub AddSum()
Dim DeinArr As Variant
Dim Zindex As Long
DeinArr = Worksheets(1).Range("A2:B" & Worksheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row)
For Zindex = 1 To UBound(DeinArr)
  Worksheets(2).Range("A1").AutoFilter Field:=1, Criteria1:=DeinArr(Zindex, 1)
  DeinArr(Zindex, 2) = Application.WorksheetFunction.Sum(Worksheets(2).Range("B2:B" &                      Worksheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row).SpecialCells(xlCellTypeVisible))
 Worksheets(2).Range("A1").AutoFilter
Next Zindex
Worksheets(1).Range("A2:B" & Worksheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row) = DeinArr
End Sub

Viel spass damit!

Gruß Michael