Buenas tardes gracias por este espacio. 

Solicito su ayuda para una macro que imprima solo las celdas que contienen datos. Tengo un botón que me ayuda a realizar un filtro avanzado y me trae los datos que quiero buscar, pero al realizar en el otro botón la impresión para paso a PDF me las convierte todas y solo quiero que se muestre en el PDF las que se consultaron. 

Tengo el siguiente código en el botón de impresión.  

pplication.ScreenUpdating = False

If MsgBox("¿Desea Convertir a PDF?", vbQuestion + vbYesNo) = vbYes Then
    Dim HResumen As Worksheet
    Dim Ruta As String
    Dim Titulo As String

    Set HResumen = Worksheets("Resumen")

        Ruta = ThisWorkbook.Path
        Ruta = Ruta & "\"
        Titulo = HResumen.Range("A2").Text
        'Cells.Select
        HResumen.Range("A1:I20").Select          
        Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ruta & Titulo, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True       
    HResumen.Range("A1").Select
'----------------------------------------------
 

Muchas Gracias

 

Campaña_2021.xlsm

@faroca20, cambia tu código:

HResumen.Range("A2:G18490").Select

por:

uF = Range("A" & Rows.Count).End(xlUp).Row
HResumen.Range("A2:G" & uF).Select