Crear nuevo libro sin formulas ni macros

Del foro de microsoft:
Como podria a hacer una macro que me creara un nuevo libro pero sin formulas
ni macros, es decir, tengo el libro base de datos con 75 hojas
aproximadamente y quiero crear otro con el nombre de respaldo pero quiero no
me copie ni formulas ni macros del libro base de datos, solo quiero que me
copie datos


Sub copia_sin_macros()
Application.ScreenUpdating = False
If Dir("c:\miprueba.xls") <> "" Then MsgBox "Archivo existe" & _
vbCr & "Elimine archivo ...", vbExclamation: End
can = Worksheets.Count
Sheets(1).Select
Sheets(1).Copy
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:= _
"C:\miprueba.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
For i = 2 To can
Workbooks("prueba.xls").Activate
Sheets(i).Select
Cells.Select
Selection.Copy
Workbooks("miprueba.xls").Activate
Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Paste
Next i
ActiveWorkbook.Save
Workbooks("miprueba.xls").Close
Sheets(1).Select
Range("a1").Activate
Application.ScreenUpdating = True
End Sub