the way i would do it is make it check if there's something in the cell. if there is, then cut the contents out. then add the 0 you want, then paste it back. then move to the cell below it. and repeat the process (use a do while selected cell <> "" ) .
should work.