I don't have another guess why it didn't work:

Option Explicit
Sub Fill_down_CD()
Application.DisplayAlerts = False
Dim wks As Worksheet
Dim Rng As Range
Dim LastRow As Long

Set wks = ActiveSheet
With wks

Set Rng = .UsedRange
LastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row

On Error Resume Next
Set Rng = .Range("C2:D" & LastRow).Cells.SpecialCells(xlCellTypeBlanks)
On Error GoTo 0

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

With .Range("C:D")
.Value = .Value
End With

End With
Application.DisplayAlerts = True
End Sub



"J.W. Aldridge" wrote:

....no merged cells...

same as all the previous ones that worked..

--

Dave Peterson