Eintrag suchen, darunter Zeile mit kopierten Text einfügen?

Hi Spezialisten ;),
Ich habe bereits den Eintrag zur Suche und einfügen einer "neuen und leeren" Zeile.

ich würde jedoch gerne, dass im gleichen Zug, in der neu eingefügten Zeile, ein kopierter Text eingefügt wird.

Hintergrund ist, dass in mehreren, nicht allen, Tabellenblättren ein bestimmter Eintrag steht, dort drunter soll eben eine neue Zeile mit dem gewünschten Inhalt kopiert werden.

OPTIMAL wäre, wenn ich den gesuchten Eintrag nicht jedes Mal im Code ändern müsste, sondern vlt in einer Abfragemaske

Für die Unterstützung möchte ich mich bereits jetzt bedanken.

Bisheriger Code:


Sub ZeilePlus_Einsetzen()

Dim Was$, c, fA
Was = "freier Text"
With ActiveSheet.Cells
Set c = .Find(Was, LookIn:=xlValues)
If Not c Is Nothing Then
fA = c.Address
Do
Rows(c.Row + 1).Insert
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address > fA
End If
End With
End Sub