I came across the need for this some while ago:--

Sub FillDownArea()
Dim cl As Range
For Each cl In Selection
cl.Select
If IsEmpty(ActiveCell) Then ActiveCell.Value = ActiveCell.Offset(-1, 0)
Next cl
End Sub

you need to select the area you need to apply this to.

hope this helps

somethinglikeant