Como guardar una factura automáticamente teniendo ya una macro que realiza otra accion

Hola a todos tengo una pregunta resulta que tengo una factura realizada en excel y la factura ya tiene una macro para cambiar automáticamente el numero correlativo de la misma cuando se manda a imprimir lo que quisiera hacer es guardar las facturas en una carpeta en mis documentos para revisarlas cada mes y que se guarde cada factura según el numero de la misma el código que tengo ya es el siguiente Private Sub Workbook_BeforePrint(Cancel As Boolean) Sheets("Hoja1").Range("H4"). Value = Sheets("Hoja1").Range("H4"). Value + 1 End Sub , que mas le puedo agregar o que podría hacer de antemano gracias por su atención