Macro - If adjacent cell contains any data, then copy data from another cell. Possible?

Try this code...
It only covers 100 cells.. you can adjust it...

Sub copy1()
for each cell in Range("B1:B100")
if isempty(cell.value)=true then
cell.value = cell.offset(0,-1).value
end if
next
End sub

Don't forget to click *