Clear contents - no formulas

Hello,

I have a macro for clearing contents after copying first sheet and creating new ones. VBA code is for clearing contents, but to leave all formulas within range intact.

Code is :

Please Login or Register  to view this content.

Code works when there are actually some cells to clear, but If none (cells are clear - except formula cells) I receive error "no cells were found". How can I fix that, I want this code only to delete cells If user accidently types something in first sheet which is being copied.

Tried this but not working :

Please Login or Register  to view this content.

Try this...

Please Login or Register  to view this content.

Another option would be to use a "cheater" cell that will always maintain a constant by writing to it in code.