Hallo und vielen Dank schonmal für die Hilfe.

Um Spalte A zurückzusetzen, habe ich zwischen Codezeile 26 und 27 das hier eingesetzt:

Range("A2:A1500").Clear

Ich habe diesen Bereich gewählt, damit die Überschrift in A1 nicht auch gelöscht wird.

Funktioniert auch soweit.

Ich kriege es aber leider nicht hin das gesuchte Wort/ die gesuchten Wörter am Anfang der Tabelle in gleicher Zeile zu kopieren...