Macro guardar PDF detecte varias hojas

Tengo un archivo con una pestaña llamada Captura y tengo 10 pestañas mas no visibles donde se copian los datos que pongo, tengo una Macro que se repite 10 veces cambiando el numero de hojas a imprimir, o sea tengo 10 botones de guardado para 1 hojas, 2 hojas etc.

El código es este

    Sheets("Tabla1").Visible = True
    Sheets("Tabla1").Select
    Range("E11").Select
    Sheets("Captura").Select
    Dim nombre As String, Ruta As String
    Ruta = Environ$("USERPROFILE") & "\Downloads" 
    nombre = "Tabla 1 Hoja" '
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Ruta & "\" & nombre & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, From:=2, To:=2, OpenAfterPublish:=True 'From:=1, To:=3 
    Sheets("Tabla1"). Visible = False

y obviamente el nombre y el numero de hojas cambia en cada botón. (Las hojas aparecen y desaparecen para correr otra macro antes de que se imprima)

Mi duda, como puedo hacer, si es que este código funciona, para crear UN SOLO BOTON y que identifique cuantas hojas voy a imprimir, ya sea 1 o 10 hojas, el nombre no necesariamente necesito que cambie.

Hay forma de que en la pestaña principal de Captura, ponga una formula en cualquier celda que ponga el numero de hojas que necesito imprimir y el botón de la macro lo utilice para saber cuantas hojas guardar? Es una idea mía, no se que sea mas fácil.