Office: Zeile suchen, ausschneiden und an bestimmter Stelle einfügen?

Hallo Leute,

ich versuche folgendes Problem mittels VBA zu lösen:
Die Spalte A der Tabelle Nachweis soll nach dem Wort Test durchsucht werden.
Anschließend soll die gefundene Zeile ausgeschnitten und als Zeile 2 wieder eingefügt werden.
Da es sich um Testdaten handelt, sollen diese immer in der zweiten Zeile stehen.
Plaziert werden soll der Code bei der Initialisierung der Userform, da die User immer die Daten sortieren und so die Testzeile immer an anderer Stelle steht.

Der folgende Code funktioniert noch nicht so ganz.

Code:

 

Hallo Peeti,

so geht' bei mir: Code:

 

Hallo Hasso,
perfekt kann ich nur sagen.
Danke
Peeti