Thanks for the speedy response, Jerry! I tried the code provided and it appears to have worked but I got a run-time error '1004' "No Cells Were Found" after debigging it highlights the line in red below.
Thanks again!
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
Bookmarks