[eitch100]

Ich habe dir doch die Datei hochgeladen. Der Code ist in Modul1...

Und bedenke, ich bin bei weitem kein Profi und mein Programmierstil ist vielleicht zweifelhaft, aber es funktioniert... Beim "Kundennumern aussortieren" habe ich gar einen fremden Code genommen und nur angepasst.

Sub Makro1()
'
' Makro1 Makro
'
' Tastenkombination: Strg+h
'
Set quelle = Sheets("1") 'name des blattes mit quelldaten
Set ziel = Sheets("2") 'name des blattes der ausgabe
sz = 3 'erste zeile der kundennummern auf blatt 1
ss = 1 'spalte der kundennummern blatt 1
k = quelle.Cells(65000, ss).End(xlUp).Row - 1 'letzte zeile der kundennummern auf blatt 1 (-1 weil die letzte zelle text ist und keine kundennummer)
r = 14 'spalte des rechnungsbetrages auf blatt 1

z = 9 'erste zeile ausgabe kundennummer auf blatt 2
s = 3 'erste spalte ausgabe kundennummer auf blatt 2

'eventuell alte daten auf blatt 2 löschen
ziel.Range("A1:Z65000").ClearContents

'kundennummern aussortieren
    Dim werte As New Collection
    
    For Each c In quelle.Range("A" & sz & ":A" & k).Cells
        schondrin = False
        For Each v In werte
            If v = c.Value Then schondrin = True
        Next
        If Not schondrin Then werte.Add c.Value
    Next
    
    
    For i = 1 To werte.Count
        ziel.Cells(z - 1 + i, s) = werte(i)
    Next

'herstellnummern und beträge
m = ziel.Cells(65000, 3).End(xlUp).Row 'letzte zeile der kundennummern auf blatt 2

    For l = z To m
        For i = sz To k

            If quelle.Cells(i, 1).Value = ziel.Cells(l, s).Value Then
                hsnr = hsnr + 1
                betr = betr + quelle.Cells(i, r).Value
            End If
            
        Next i
        ziel.Cells(l, s + 1).Value = hsnr
        ziel.Cells(l, s + 2).Value = betr
        hsnr = 0
        betr = 0
    Next l
End Sub