Macro copying only sheets' values without formula

Hello!!!
How can I set this macro in order to get copied in the new file only the values of the sheets I need without the formula???
This is the code:

Sub SAVE_REPORT()

Dim Path1 As String

Path1 = "C:\DEV\REPORT FOLDER" & "\" & "REPORT" & Format(Now, " dd-mm-yyyy ")
ActiveSheet.Unprotect Password:="report"
Sheets("1").Unprotect Password:="report"
Sheets("2").Unprotect Password:="report"
Sheets("3").Unprotect Password:="report"
Sheets("4").Unprotect Password:="report"
Sheets(Array("SUMMARY", "1", "2", "3", "4")).Copy
    ActiveWorkbook.SaveAs Filename:=Path1, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Application.CopyObjectsWithCells = False
    ActiveWindow.Close
    ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True, Password:="report"
Sheets("1").Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True, Password:="report"
Sheets("2").Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True, Password:="report"
Sheets("3").Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True, Password:="report"
Sheets("4").Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True, Password:="report"

End Sub

Can anybody please help me???
Thx

Thank you so much AlphaFrog!!!! It works perfectly!!!