Como obter lista DropDown na linha inserida - macro - Excel 2010

Question

Eu tenho uma tabela assim:

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

As últimas 3 colunas são listas suspensas.

Eu tenho um botão com esta macro:

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

Se eu inserir na linha 4, ela funcionará bem, mas se eu inserir na linha 2, não obtenho a lista dropDown na coluna 2-4 na linha inserida.

Alguém pode me ajudar?