flet celler med makro

hvordan får jeg flg kode til altid at flette cellerne i kolonnerne E til H i den nye linje den indsætter?


Sub IndsaetRow()
  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