Macro grabar archivos XLSM como XLS pero conservar ambos

Sigue las instrucciones.

Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: guardanormal. Aceptar.
9. Para ejecutarla dale click a la imagen.

Sub guardanormal()
'Guarda archivo con macros y sin macros
'Por.Dam
wnom = ThisWorkbook.Name
wpath = ThisWorkbook.Path
    ActiveWorkbook.Save
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=wpath & "\" & wnom _
        , FileFormat:=51, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Application.DisplayAlerts = True
End Sub

Saludos.Dam
Si es lo que necesitas.

Gracias Por la Respuesta,

Si graba el archivo en extensión habilitada para macros (XLSM), pero en formato XLS no aparece.

me marca error en la siguiente linea:

ActiveWorkbook.SaveAs Filename:=wpath & "\" & wnom _
, FileFormat:=51, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True

Gracias