Sub SaveSheetsAsValues()
    Dim wb As Workbook
    Dim wsName As Worksheet
    Dim wsSource As Worksheet
    Dim newBook1 As Workbook
    Dim newBook2 As Workbook
    Dim i As Integer
    
    
    AccelerateBegin
    ' Указать активную книгу Excel с помощью надстройки
    Set wb = ActiveWorkbook
    
    ' Указать второй лист для извлечения названий
    Set wsName = wb.Sheets(2)
    
    ' Получить название для новых книг
    Dim fileName1 As String
    Dim fileName2 As String
    fileName1 = wsName.Range("A1").Value
    fileName2 = wsName.Range("B1").Value
    
    ' Создать новые книги Excel для четвертого и пятого листов
    Set newBook1 = Workbooks.Add
    Set newBook2 = Workbooks.Add
    
    With wb
        ' Сохранить третий лист в первую новую книгу на первый лист с сохранением форматов и ширин столбцов
        Set wsSource = .Sheets(3)
        CopyRangeWithFormat wsSource.UsedRange, newBook1.Sheets(1).Range("A1")
        newBook1.Sheets(1).Name = wsSource.Name
        
        ' Сохранить четвертый лист во вторую новую книгу на первый лист с сохранением форматов и ширин столбцов
        Set wsSource = .Sheets(4)
        CopyRangeWithFormat wsSource.UsedRange, newBook2.Sheets(1).Range("A1")
        newBook2.Sheets(1).Name = wsSource.Name
        
        ' Добавить второй лист во вторую новую книгу
        newBook2.Sheets.Add After:=newBook2.Sheets(1)
        
        ' Сохранить пятый лист во вторую новую книгу на второй лист с сохранением форматов и ширин столбцов
        Set wsSource = .Sheets(5)
        CopyRangeWithFormat wsSource.UsedRange, newBook2.Sheets(2).Range("A1")
        newBook2.Sheets(2).Name = wsSource.Name
    End With
    
    ' Сохранить новые книги
    newBook1.SaveAs wb.Path & "\" & fileName1 & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    newBook2.SaveAs wb.Path & "\" & fileName2 & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    
    ' Закрыть новые книги
    newBook1.Close False
    newBook2.Close False
    
    AccelerateEnd
End Sub

Private Sub CopyRangeWithFormat(rngSource As Range, rngDestination As Range)
    rngSource.Copy
    rngDestination.PasteSpecial Paste:=xlPasteValues
    rngDestination.PasteSpecial Paste:=xlPasteColumnWidths
    rngDestination.PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
End Sub

Private Sub AccelerateBegin()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    ActiveSheet.DisplayPageBreaks = False
    Application.DisplayStatusBar = False
    Application.DisplayAlerts = False
    Application.AskToUpdateLinks = False
End Sub

Private Sub AccelerateEnd()
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    ActiveSheet.DisplayPageBreaks = True
    Application.DisplayStatusBar = True
    Application.DisplayAlerts = True
    Application.AskToUpdateLinks = True
End Sub