Indsæt linje via makro

Jeg har en makro, jeg tidligere har fået lavet er på eksperten.dk:

Sub IndsaetRow()
'
' Indsæt række
' 29-01-2004
'
  R = Range("A65536").End(xlUp).Row 'finder sidste række i A 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' ret her for flere kolonner 12 = M
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
------

Jeg vil gerne have den til at indsætte en linje når der ikke står noget i kolonne A. Den første række den skal indsætte er mellem række 4 og 5.

Når jeg kører makoren indsætter den en række mellem 1 og 2.

Hvem kan hjælpe?