VBA to autofill columns

This is the technique I use for this:

Option Explicit

Sub FillDownValues()
Dim LR As Long, ws As Worksheet

For Each ws In Worksheets
    LR = ws.Range("F" & ws.Rows.Count).End(xlUp).Row
    ws.Range("A1:E" & LR).SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C"
    With ws.Range("A1:E" & LR)
        .Value = .Value
    End With
    ws.Columns.AutoFit
Next ws

End Sub