Para grabar prueba con esto:
Sub Macro1()
ActiveWorkbook.SaveAs Filename:= _
"C:RutadestinoNombre del archivo.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub
Para imprimir es esta macro
Sheets("Nombre de Hoja").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
y para borrar los datos es esta macro
Sheets("Nombre de Hoja").Select
Range("c7,c11,c12,c13,c14,c15,e11,e12,e13,e14,e15,g11,g12,g13,g14,g15,h11,h12,h13,h14,h15").ClearContents
Salu2