Indsæt linje via makro #2

Kabbak har lavet følgende makro til mig:

Sub IndsaetRow()
'
' Indsæt række
' 29-01-2004
'
  R = Range("D65536").End(xlUp).Row 'finder sidste række i D kolonnen
    Range("A" & R - 1).Select
    ActiveCell.EntireRow.Insert Shift:=xlDown ' indsætter række lige over sidste række
    Range("A" & R - 1).Select
    For I = 1 To 12
If ActiveCell.Offset(-1, I).HasFormula Then ' har celler i rækken ovenover en formel
  ActiveCell.Offset(-1, I).AutoFill _
  Destination:=Range(ActiveCell.Offset(-1, I), ActiveCell.Offset(0, I)) _
  , Type:=xlFillDefault ' hvis overstående celler har en formel trækkes den ned,
                        'Fra A kolonnen og 12 kolonner til højre
  End If
Next
End Sub

Den indsætter en linje og trækker formlerne ned fra rækken ovenfor. Den stopper dog ved kolonne M, som makroen rigtig nok er lavet til.
Mit problem er, det at nu har jeg også en formel i kolonne N, som jeg gerne vil have trukket med ned i næste række.
Jeg har prøvet at rette i makroen uden held.

Kabbak kan du eller en anden hjælpe?