The bit of code below takes about 6 seconds to AutoFill a formula in Column N cells for 15,000 rows. In many cases the formula is already present in most or all of the cells; I'm only running it as a fail safe for users accidentally removing the formula in a couple of random cells. Is there anything I can do to speed up this process?
Thank you much
[vba]Dim LastRow As Long
LastRow = ActiveSheet.[B65536].End(xlUp).Row
Range("N16").FormulaR1C1 = "=RC[-5]*RC[-2]+RC[-4]"
Application.ScreenUpdating = False
Range("N16").AutoFill Range("N16:N" & LastRow - 1)
Application.ScreenUpdating = True[/vba]