Excel, nachdem der Filter sitzt, erste Nummer der Liste anzeigen

Hallo zusammen!

Ich bin neu hier und habe schon sehr oft Hilfe durch einig von euch erhalten indem mir ein Thema mit der entsprechenden Lösung angezeigt wird.
Nun scheine ich aber an eine Grenze zu stoßen, da ich etwas suche oder brauche, was es entweder nicht gibt oder bisher noch niemand so ein Problem hat.

Also ohne jetzt weiter um den heißen Brei zu reden versuche ich euch mal der Problem dazustellen.

Ich habe eine Tabelle in der verschiedene Daten aufgelistet sind.
In der ersten Spalt sind die Kundennummern (A) und in der zweiten ist eine Projektnummer (B).
Diese Daten muss ich filtern können.
Nachdem ich die gefiltert habe möchte ich, dass die erste Kundennummer die mir angezeigt wird oben im Kopf erscheint. Das gleiche bei der Projektnummer.

Beispiel ohne Filter:
Kd.-Nr.: 12345 (ohne Filter)
Projekt-Nr.: 10 (ohne Filter)

Kd.-Nr.: Proj.-Nr.:
12345 10
12345 10
12345 10
12345 10
23456 20
23456 20
34567 30
45678 40
45678 40

Beispiel mit Filter:
Kd.-Nr.: 23456
Projekt-Nr.: 20

Kd.-Nr.: Proj.-Nr.:
23456 20
23456 20

Ich hatte es mit der Matrixformel =INDEX(A6:A99;VERGLEICH(WAHR;WENN(A6:A99<>"";WAHR);0)) versucht, aber die zeigt ja generell immer die erste zahl an, nicht nur die grad aktuell sichtbaren.

Geht das überhaupt? Wenn ja, WIE???? Ich bin echt verzweifelt

Ich danke euch jetzt schon mal für eure Hilfe!

LG Mona

Public Function GetFirstVisibleValue(r As Range)
    Dim cell As Range
    For Each cell In r
        If Not cell.EntireRow.Hidden Then
            GetFirstVisibleValue = cell.Value
            Exit For
        End If
    Next
End Function

=GetFirstVisibleValue($A$2:$A$1000)

Public Function GetFirstVisibleValue(r As Range)
    Dim cell As Range
    For Each cell In r
        If Not cell.EntireRow.Hidden Then
            GetFirstVisibleValue = cell.Value
            Exit For
        End If
    Next
End Function

=GetFirstVisibleValue($A$2:$A$1000)