Hallo Liebe VGA Gemeinde

ich habe ein Macro erstellt dass nach einen Suchbegriff finden und mit Daten ersetzen soll. Nun habe ich gesehen, dass wenn der Suchbegriff nicht vorhanden ist das Macro den Inhalt in die erste freie Zeile schreibt. Ich möchte jedoch, dass das Macro mir einer Fehlermeldung "Suchbegriff nicht vorhanden" rausgibt und den Inhalt nicht reinschreibt.
Danke für Euren Support
-------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Masteraend()

Dim SZelle As Range
Dim Suchwert As String

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

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

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