Try this function:

Sub FillDown()
Range("B2").Select
Range(Selection, Selection.End(xlDown)).Select
Range("B4:B1000").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[-1]C"
End Sub

Note: B2 whould be the first cell in the column that contains data; adjust
range to suit


--
RyGuy


"Pete" wrote:

Glad to help - thanks for getting back.

Pete