Hallo VBA Cracks

ich habe folgendes Problem
ich möchte, dass mein Makro in der Datenbank mit den Werten aus den Zeile A sucht und ersetzt so lange bis ein * kommt
Den ersten Treffer soll er so ersetzen wie im Makro steht und jeden Weiteren mit einem *. Die Tabelle hierzu

45679XX, Klaudius 22.1.25 25.1.25 U
45678XX, Klaudius 21.1.25 21.1.25 FZA
*
*
*
*
*
*
*
*
Mein Makro sieht wie folgt ausSub Masteraend()

Dim SZelle As Range
Dim Suchwert As String

Suchwert = Sheets("Master").Range("a12")

Sheets("Master").Range("e2:j2").Copy
With Worksheets("D_Master")

Set SZelle = .Range("A:A").Find(Suchwert)
If Not SZelle Is Nothing Then
SZelle.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Else
MsgBox "Wert nicht gefunden"
End If
With Worksheets("Master")
.Range("a2:D2").ClearContents
End With
End With
End Sub

Herzlichsten Dank für Eure Unterstützung
Klaudius