The following code works, but need it to work for not column C&D.

Any clues


Sub Fill_down_C()
Application.DisplayAlerts = False
Dim wks As Worksheet
Dim Rng As Range
Dim LastRow As Long
Dim Col As Long


Set wks = ActiveSheet
With wks
Col = .Range("C1").Column


Set Rng = .UsedRange
LastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
Set Rng = Nothing
On Error Resume Next
Set Rng = .Range(.Cells(2, Col), .Cells(LastRow, Col)) _
.Cells.SpecialCells(xlCellTypeBlanks)
On Error GoTo 0


If Rng Is Nothing Then


Exit Sub
Else
Rng.FormulaR1C1 = "=R[-1]C"
End If


With .Cells(1, Col).EntireColumn
.Value = .Value
End With


End With
Application.DisplayAlerts = True
End Sub