Wortteil suchen und Wort kopieren und einfügen

Hallo zusammen,
ich bräuchte Macro was folgendes macht:
Es soll die Spalten B bis D nach folgendem Wortteil durchsuchen
"LEH"
und wenn er es gefunden hat das komplette Wort aus dieser Zelle raussuchen, kopieren und die Spate E einfügen der gleichen Zeile wie das gefundene Wort z.B.
in der Zelle B3 steht folgender Text:
"Die Grundlage für das Modell BT-LEH-579.4 ist die technische Weiterentwicklung..."
Das Macro sollte nun in der Zelle B3 den Wortteil "LEH" finden und dann aber das Gesamte Wort bis zu den Leerzeichen kopieren und in E3 einfügen, das wäre in diesem Fall "BT-LEH-579.4"
Vielen Dank für Eure Hilfe