Resetting all fields to zero is removing certain cells formulas

[clogistics]

I'm trying to reset all my cells that have prices to zero; this code works, but removes some formulas:

Please Login or Register  to view this content.

I even tried this one, not knowing if it'll make any differences:

Please Login or Register  to view this content.

I have merged cells. I've even tried incorporating those merged cells ranges into the range VBA and still have the same problem. So, all in all, some cells have their formulas, but other cells formulas are being removed. How can I keep all cells with their respected formulas, while resetting fields to zero?

[mehmetcik]

You need to check for the presence of a formula.

Please Login or Register  to view this content.

[clogistics]

Thanks for the quick reply back. The code you gave me didn't zero out the cells that had formulas. Additionally, which I should've added in the initial post, how would you go about implementing this with columns? My original code was able to get everything to zero, even across columns, but just removed some formulas while leaving other formulas intact.

[mehmetcik]

Please Login or Register  to view this content.

[clogistics]

The last code looks like it added zero's to every single cell, but it did zero out every cell but didn't zero out them all. It wasn't what I was looking for (as far as zero out every cell). So, I attached a file to this post, so I could add more clarity. I should've originally added the file to limit confusion on what I was trying to request about. Once again, thanks for reaching out to help.

[Fluff13]

How about

Please Login or Register  to view this content.

[mehmetcik]

Based on Fluffs Solution.

Please Login or Register  to view this content.

[clogistics]

Both of these codes worked! Thanks mehmetcik, for your help through this, and thanks Fluff13 adding your input as well. I really appreciate the help.

[Fluff13]

You're welcome & thanks for the feedback