One way. Modify to suit.

Sub fillempties()
For Each c In [k1:k12]
If c = "" Then c.Value = c.Offset(-1)
Next
End Sub

"Kaj Pedersen" wrote in message
...
Hi group,



I want to repeat the contents of a cell to all cells below in the column
provided the cells below are blank.

This operation shall continue until a cell with contents is met. After
this
the repetition to all new blanks shall continue with the contents of the
new
cell.

Moreover, I want to specify the range in which I want the procedure to
work.



I hope someone can help.



Regards

Kaj Pedersen