Makro beim verlassen von Zelle

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

von Markus habe ich liebenswerterweise schon folgende Hilfe erhalten:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim iColumn As Integer
iColumn = Target.Cells(1, 1).Column

If iColumn = 6 Then
ActiveSheet.Unprotect ""
Selection.Insert Shift:=xlDown
'Rows(1).Copy ActiveCell 'Hier musst Du selbst nochmal
'schauen habe leider keine Zeit mehr
ActiveSheet.Protect ""
End If
End Sub

Ich komme damit aber nicht ganz zurecht, woran kann's liegen?

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