one way

Sub fillincolumn()
For Each c In Range("a3:a18")
If c = "" Then c.Value = c.Offset(-1)
Next
End Sub

--
Don Guillett
SalesAid Software

"Sean H" wrote in message
...
Hi,

I needed help with a macro that can fill the cells beneath it until it
reaches the next entry, then do the same until it reaches the end of the
file. I have researched loops but I haven't figured out how to implement
them with a "fill" command.

Thanks,
Sean Heckathorne