Botón guardar como

Pues mira si quieres guardar el archivo en una ruta especifica eligiendo la carpeta de destino yo utilizo el siguiente código, abre una venta del explorador de windows para seleccionar la carpeta donde queremos guardar el archivo,
una vez seleccionada guarda el archivo con el nombre que le indiquemos.
Solo tendrías que cambiar el InitialFileName a la ruta donde quieres empezar a buscar.
Private Sub CommandButton3_Click()
Dim fDialog As Office.FileDialog
Dim Ruta As String
   Dim varFile As Variant
   ' inicializamos el filedialog
   Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
   With fDialog
      ' no permitimos la multiseleccion de archivos, ya que solo buscamos un archivo
      .AllowMultiSelect = False
      'La ruta desde donde empezamos la busqueda
      .InitialFileName = "c:\importar\"
      ' Titulo que queremos poner a la ventana.
      .Title = "Por favor, selecciona el archivo de presupuesto a importar"
      ' Borramos los filtros si hubiera, y añadimos el filtro de archivos excel, para solo mostrar estos.
      .Filters.Clear
      '. Filters.Add "Archivos Excel", "*.XLS"
      ' Con .Show se muestra la ventana para seleccionar el archivo.
      ' Si devuelve verdadero, el usuario ha seleccionado un archivo.
      ' Si devuelve Falso, el usuario ha seleccionado cancelar.
      If .Show = True Then
         'Si se ha seleccionado un archivo guardamos el valor de la ruta en la variable ruta.
        Ruta = fDialog.SelectedItems.item(1)
        'salvamos el archivo en la ruta seleccionada, y añadimos el nombre del archivo
        ActiveWorkbook.SaveAs Filename:=Ruta & "\ventasmes.xls"
        'MsgBox "la ruta es: " & ruta
      Else
      'Si se pulsa cancelar , se muestra mensaje de cancelacion y se sale.
         MsgBox "Ha cancelado la busqueda del archivo"
         Exit Sub
      End If
   End With
end sub

Hola, siento molestarte de nuevo, pero estoy liadismo con este botón y no consigo sacarle punta ni siquiera con esta respuesta tuya, pues en realidad me deja en mis documentos y lo que me gustaría es que me dejara en balance mensual, algo estoy haciendo mal del todo, ¿podías aclarame algo más?
Gracias