So erhalten Sie die DropDown-Liste in einem eingefügten Zeilenmakro - Excel 2010

Ich habe einen Tisch, der so aussieht:

opg nr..... ansvar.......status......færdig
1 ..........Flemming ..  Opstart..  ....10
2...........Daniel  .....I gang.......  30
3 ......... Kasper  .....I gang .......70

Die letzten 3 Spalten sind Dropdown-Listen.

Ich habe eine Schaltfläche mit diesem Makro:

Dim row
row = InputBox("Row number below which new row will be inserted", "Input row number")
If Not row = vbNullString Then
    ActiveSheet.Range("A" & row).EntireRow.Insert
End If

Wenn ich in Zeile 4 einfüge, funktioniert es einwandfrei, aber wenn ich in Zeile 2 einfüge, wird die Dropdown-Liste in Spalte 2-4 in der eingefügten Zeile nicht angezeigt.

Kann mir jemand helfen ?