try this
Sub pastedown()
For Each c In Range("a2:a15")
If Len(Cells(c.Row, "a")) < 1 Then
c.Value = c.Offset(-1)
End If
Next
End Sub

--
Don Guillett
SalesAid Software

"Brandon - Excelinator" <Brandon -
wrote in message ...
Please help - I am trying to create a macro that works through a selected
range (loop, specifically a column) and finds empty cells and pastes the
text
from the cell directly above it into the empty cell.
If anyone has an idea or an easier way to accomplish this it would be
appreciated.

Brandon