Crear Macro para elegir destino de guardar

Así quedaría

Sub GeneraSNL()
    Dim Extension_snl As String
    nombre = "0601" & Sheets("Planillas Mensuales").Range("B3") & Sheets("Planillas Mensuales").Range("B2")
    ruta = "C:\Documents and Settings\DAMOR\Mis documentos\" ' Aquí elijo el destino de donde debería guardar mi archivo
    Extension_snl = ".snl"
    Sheets("SNL").Select
    Range("N14").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.AutoFilter
    'Para seleccionar la carpeta y guardar
    With Application.FileDialog(msoFileDialogSaveAs)
        .Title = "Guardar archivo como"
        .AllowMultiSelect = False
        .InitialFileName = ruta & nombre & Extension_snl
        .FilterIndex = 11
        If .Show Then
            destino = .SelectedItems(1)
            ActiveWorkbook.SaveAs Filename:=destino, _
            FileFormat:=xlText, CreateBackup:=False
            MsgBox "Su Archivo snl ha sido creado con éxito", vbInformation
            'ThisWorkbook.Saved = True
        End If
    End With
    Application.DisplayAlerts = False
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
End Sub