Macro to fill down formulas when new data is entered

[AshaG]

I've been playing around with trying to get my sheet to fill down three formulas to the last row every time a new entry is added in Column A. And I want to do it without having to manually run the macro.

This is the code I've been playing with

Private Sub Worksheet_Activate()

Dim LastRow As Long
Di rngFormN As Range

Appliction.ScreenUpdating = False

With Worksheets ("Upgrade Requests")
LastRow = .Range("A" & Rows.Count).End(xlUp).Row

Set rngFormN =.Range("N3:N" & .Cells(.Rows.Count, "A").End(xlUp).Row)
rngFormN.Formula = "=IF(OR(E3 = "", I3 = "", "", NETWORKDAYS(E3,K3))"
rngFormN.Offset(0,1).Formula = "=IF(OR(E3 = "", I3 = "", "", NETWORKDAYS(E3,K3))"
rngFormN.Offset(0,2).Formula = "=IF(OR(E3 = "", I3 = "", "", NETWORKDAYS(E3,K3))"

End With

Application.ScreenUpdating = True

End Sub

I have tried versions of it in the section change event too, but I can't seem to get it to work. It just makes my whole workbook freeze. Any ideas would be a huge help

 

[AshaG]

Oh, yes I know I spelt Application wrong in the first Application.ScreenUpdating. I was having trouble with the post form freezing while I was typing.