vba to clear contents in specific ranges on active sheet

Not sure how to best word this.

I've created a macro button that, adds a value of 1 to a specific cell every time it's pushed, it then exports (paste special) a specific range (A1:J50) in the active worksheet to a word doc and saves it as the name of another specified cell. My code is below:

Please Login or Register  to view this content.

Once all the above code has run, I'd like to clear the contents of specific ranges of cells but leave other cells alone. Those cells would be:

B3:B4
B14:B37
C14:C31
C33:C37
H17:H37

Everything else needs to be left alone.

Any help so I can achieve that would be amazing.

Also, I'll probably open a new thread once I've figured this out but if any of you reading this are skilled enough perhaps you can help me add in code that will save (not Save As) the Excel doc in it's original name and original location. No prompts required.

Thanks in advance.

Originally Posted by blackburnsexcel

Also, I'll probably open a new thread once I've figured this out but if any of you reading this are skilled enough perhaps you can help me add in code that will save (not Save As) the Excel doc in it's original name and original location. No prompts required.

Thanks in advance.

add in this:

Please Login or Register  to view this content.

Perfection thanks. Rep coming your way.

Any ideas on saving as well?

Thanks

Originally Posted by Templemind

add in this:

Please Login or Register  to view this content.

Thanks, but I get runtime error '424'

Woops. I got confused.

Don't worry, you'll still get some rep. Thanks everyone. All solved.

Here's the full code for anyone wanting to do the same.

Please Login or Register  to view this content.