prezados, boa tarde!

eu tenho o seguinte código:

Sub Macro1()
    
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    ActiveSheet.PageSetup.PrintArea = "$A$2:$E$80"
    ChDir "C:"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:Cad.pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
    ActiveSheet.PageSetup.PrintArea = ""
    Range("A2").Select
    ActiveWorkbook.Save
End Sub

como faço para alterar esse trecho aqui:

'     ActiveSheet.PageSetup.PrintArea = "$A$2:$E$80"

esse código funciona só se minha planilha conter a2 até e80, se for a2 até e20 ele até vai rodar, porém vai incluir dados desnecessários.

alguém sabe como faço para deixar essa printarea de a2 até e (última linha preenchida)?

desde já agradeço pela atenção de todos