With Application.FileDialog(msoFileDialogSaveAs)
        
        .InitialFileName = "D:\Temp\закрытые_заявки.xlsx"
        .Title = "имя файла"
        .FilterIndex = 1
        If .Show = 0 Then
            Exit Sub
        End If
        strFullName = .SelectedItems(1)
    End With

 Sub DiapazonSaveInXLFile()
    Dim iSource, diapazon As Range, iFileName 'As Variant
    Set iSource = ActiveSheet.Range("A2:AD3")
    Set diapazon = Selection
    With Application
         iFileName = .GetSaveAsFilename( _
         FileFilter:="Excel Files (*.xls), *.xls", _
         Title:="Введите имя файла")
         If iFileName <> False Then
            .ScreenUpdating = False
            .DisplayAlerts = False '
            With .Workbooks.Add(xlWBATWorksheet)
                 iSource.Copy Destination:=.Worksheets(1).Range("A1")
                 diapazon.Copy Destination:=.Worksheets(1).Range("A3")
                 .Close Filename:=iFileName, saveChanges:=True
            End With
            .DisplayAlerts = True '
            .ScreenUpdating = True
         Else
            MsgBox "Ошибка!", , ""
         End If
    End With
End Sub