Export only specific sheet to PDF

Team,

I have a requirement as below.

1) In My Excel file I have 40 sheets with Name (Summary Sheet, Sheet 1, Sheet 2...Sheet 40)
2) I want to export only the Summary Sheet to PDF format.
3) I can able to export using the below code.
4) In Summary sheet I have applied formula upto 300 rows, Sometime all rows will show data and sometimes it shows less than 300 rows data. It all depends on the Condition.
5) When I export to PDF, the output is showing all 300 rows even if we don't have data in those rows.

Basically I want to export the Summary Sheet to PDF which has data in those rows.

Sub GetSaveAsFilename()

Dim fileName As String

fileName = Application.GetSaveAsFilename(InitialFileName:="", _
                                         FileFilter:="PDF Files (*.pdf), *.pdf", _
                                         Title:="Select Path and FileName to save")

    If fileName <> "False" Then

        With ActiveWorkbook

                .Worksheets("Summary Sheet").ExportAsFixedFormat Type:=xlTypePDF, fileName:= _
                    fileName, Quality:=xlQualityStandard, _
                    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

        End With

    End If
End Sub

Thanks!
Kiran