Sub movefromcold()
For Each c In Range("c2:c10").SpecialCells(xlBlanks)
c.Offset(, 1).Cut c
Next
End Sub


--
Don Guillett
SalesAid Software

"anthony" wrote in message
...
i need a macro to check all blank cells in column E then move what is in
column D in the same row into that cell
if the coresponding cell in column D is blank tehn we use wahtever value
is
in the C column.

please make it simple with tons of comments as am new to macros and would
like to write my own macros.