Сохранение диапазона ячеек по кнопке в новый файл - VBA - Ответ 14532740

Sub VoronkaSaveAsDocument()
    Dim M As String
    Dim S As String
    Dim x As Long
    
    M = Range("N1").Value
    
   
    Worksheets("Воронка кандидатов").Activate
    
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.ColumnWidth = 12.9
    Selection.Rows.AutoFit
        
    
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & M & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        
   ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
   Filename:=ThisWorkbook.Path & "\" & M & ".pdf"
  
    ActiveWindow.Close
      Windows("Новый дизайн профилей.xlsm").Activate
 
    Application.ScreenUpdating = True
End Sub

Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & M & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False