Macro Imprimir solo celdas con datos

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