try
Sub copytoblank()
For Each c In Range("a18:a23")
If Len(c) < 2 Then c.Value = c.Offset(, 1)
Next
End Sub

--
Don Guillett
SalesAid Software

"Colin Hayes" wrote in message
...

Hi

In column A , I have some cells with content , some blank.

In column B , all the cells have content.

I need to transfer the content of the cells in column B to column A , BUT
ONLY to the cells in column A which are blank.

Cells which already have content in column A should remain unchanged. Only
the blank ones should be updated with the content of the cells from B.

Can someone help with small routine to do this?

Grateful for any assistance.



Best Wishes


Colin