I have info all the way from column A to HC, some columns down to row
500.

My formula is stopping wherever the data in column A is stops (row
264).

Any ideas on how to fix this?


Sub FillColBlanks_all()

Dim wks As Worksheet
Dim rng As Range
Dim LastRow As Long

Set wks = ActiveSheet

With wks

LastRow = Range("a500:hc500").End(xlUp).Row

Set rng = Nothing
On Error Resume Next
Set rng = .Range("A11:hc" &
LastRow).Cells.SpecialCells(xlCellTypeBlanks)
On Error GoTo 0

If rng Is Nothing Then
MsgBox "No blanks found"
Exit Sub
Else
rng.FormulaR1C1 = "=R[-1]C"
End If


End With


End Sub


thanx