Macro to Paste to a Variable Range - HELP

[Guest]

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

 

[Don Guillett]

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