Makro für Zeilen einfügen mit Formel

Ich brauche ein Makro, welches mir Zeilen einfügt und zudem noch eine Formel in Spalte D.

Das ist was ich bisher habe:

Sub Makro()
'
' Makro
'

Selection.Insert Shift:=xlDown
For Each Cell In Range("D:D")
If Cell.Interior.ColorIndex = 15 Then Cell.Formula = "=IF(ISNA(VLOOKUP(A4:A10000,'C:\Excel\[test.xls]Tabelle1'!$B$2:$H$10000,7,FALSE)),0,VLOOKUP(A4:A10000,'C:\Excel [test.xls]Tabelle1'!$B$2:$H$10000,7,FALSE))"
Next Cell
End Sub

Allerdings wird hier in jede Zelle der Spalte D die Formel eingetragen.

Dürfte für Euch Excel-Cracks doch kein Problem sein, oder?

MfG
Dominik