Guten Morgen in die Runde,
ich brauche mal wieder Eure großartige Hilfe...
Ich möchte mittels VBA ein Wort in einer Tabelle suchen und wenn das gefunden ist, eine neue Spalte links davon einfügen. Für diese Anforderung habe ich bereits einen Code:

Cells.Find(What:="date_end", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.EntireColumn.Select
Selection.Insert Shift:=xlToRight

Nun möchte ich gerne das gefundene Wort auch noch kopieren und genau ein Feld nach links in die neu eingefügte Spalte einfügen. Da sich das gesuchte Wort jedoch nicht immer an der gleichen Stelle befindet, kann ich keinen Zellbezug für den Code benutzen.
Freue mich über Anregungen.
VG Michel