ESTRUCTURA DE ABONOS

[SALAVERRINO]

Buenos días a los prestigiosos integrantes de este foro, en esta ocasión recurro a uds, para solicitar su ayuda en como modificar la macro, el cual permita guardar el archivo resultado con la extensión .xls, ya que con esta macro lo genera con la extensión .xlsm , siendo una copia exactamente al original con la diferencia que en el archivo fuente son barrados los datos ingresados, por lo que necesito es que al guardar el archivo resultado elimine las hojas BASES DE DATOS y Hoja1 quedando únicamente la Hoja2 (el cual contiene formula que son transportador de la Hoja1 - resaltado de color celeste) y solo debe quedar como valores, para mejor el archivo fuente.

Sub guardar24072015()
Nombre = ActiveWorkbook.Name
Carpetaa = ActiveWorkbook.Path
filaa = Carpetaa & "\" & Nombre
Nombrar = MsgBox("usar el archivo por default", vbYesNo + vbDefaultButton2, "AVISO")
If Nombrar = vbYes Then
filab = Carpetaa & "\" & "plantilla electronica1"

Else
Titulo = InputBox("¿Como se va a llamar el archivo?", "AVISO")
If Titulo = "" Then
Exit Sub
Else
filab = Carpetaa & "\" & UCase(Titulo) & ".xlsm"
End If
End If
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:=filab, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
xNombre = ActiveWorkbook.Name
Workbooks.Open (filaa)
Sheets("Hoja1").Range("C2:C50").ClearContents
Sheets("Hoja1").Range("G2:G50").ClearContents


Workbooks("ESTRUCTURA DE ABONOS.xlsm").Save

Sheets("Hoja1").Select
    Range("C2").Select

Workbooks(xNombre).Close savechanges = True
Sheets("Hoja1").Range(Cells(2, 1), Cells(lastRow, 50)).ClearContents
End Sub

Desde ya agradezco su apoyo y colaboración.

ESTRUCTURA DE ABONOS.xlsm

RESULTADO.xlsm

RESULTADO.xls