Makro bei verlassen einer Zelle

Normal verwende ich für das das Einfügen folgendes Makro:

Sub Einfügen()
ActiveSheet.Unprotect ""
Selection.Insert Shift:=xlDown
Rows(1).Copy ActiveCell
ActiveSheet.Protect ""
End Sub

Wie kriege ich XL dazu, dies beim verlassen der Spalte F zu tun?
Kann mir da jemand weiterhelfen?
Vielen Dank, Stefan