VBA script i excel

Hejsa

Jeg har nedenstående script som kopierer div. formler ned i en ny række, men jeg vil også gerne have et som ryder rækken og indsætte formlerne igen, så rækken er helt "frisk" igen, hvad skal jeg ændre for at få det til at virke??


Sub TilføjRække()
        ActiveCell.Offset(1, 0).EntireRow.Insert Shift:=xlDown
        R = ActiveCell.Row
        Range("A" & R + 1).Select
        For I = 1 To 11
    If ActiveCell.Offset(-1, I).HasFormula Then
        ActiveCell.Offset(-1, I).AutoFill _
        Destination:=Range(ActiveCell.Offset(-1, I), ActiveCell.Offset(0, I)) _
        , Type:=xlFillDefault
    End If
    Next
End Sub