2 points Stella,

The first, to make sure you are talking and moving values use the code
....

For x = 1 to 10
If Cells(x,1).Value = 0 Then
Cells(x,2).Value = Cells(x+1,2).Value
Endif

But secondly, just check that the number format of the object cell
isn't set to TEXT.

Alan