Sub SaveActiveSheetWithValuesAndFormats()
' Сохранить лист в отдельную книгу, сохранить только значения и оформление
     Dim sh As Worksheet, wbNew As Workbook, cFileName
     Set sh = ActiveSheet
     cFileName = Application.GetSaveAsFilename(sh.Name, "Книга Microsoft Office Excel (*.xls), *.xls")
     If cFileName = False Then Exit Sub
     Application.ScreenUpdating = False
     ' Копируем лист (при этом создается новый файл с этим листом)
     sh.Copy
     Set wbNew = ActiveWorkbook
     ' Заменяем формулы значениями
     With wbNew.Sheets(1).UsedRange.Cells
         .Value = .Value
     End With
     ' Сохраняем файл
     Application.DisplayAlerts = False
     wbNew.SaveAs Filename:=(cFileName), FileFormat:=xlNormal
     ' Закрываем файл и возвращаемся в начало
     wbNew.Close
     Application.DisplayAlerts = True
     Application.ScreenUpdating = True
     sh.Activate
End Sub

Sub Макрос1()
'
' Макрос1 Макрос
'

'
     Sheets(Array("Лист1", "Лист2")).Copy
End Sub

Sub SaveActiveSheetWithValuesAndFormats()
        Dim sh As Worksheet, wbNew As Workbook, cFileName
        Set sh = ActiveSheet

Sub SaveActiveSheetWithValuesAndFormats(Optional sh As Worksheet)
        Dim wbNew As Workbook, cFileName
        If sh Is Nothing Then Set sh = ActiveSheet