Remove zeros

I have a list that looks like this:

0
1250897
0
0
9850254

I need to remove all the single zeros but not those within a larger number.
And I need to write this into a macro. Thanks for any suggestions.