Macro to save a workbook to a specific folder

Hi,
I am looking for a macro that will do the following:
1. Save active workbook as number in cell H2 on Quote worksheet
2. Save workbook in C:\ Documents\Quotes
3. save workbook as .xlsm
I hope I have given you enough information if not please get back to me.

Regards
Keith