Need additional VBA code for PDF export from excel : I'm fairly new to VBA for excel and I have a macro for exporting a single sheet to PDF but need additional code to add criteria for my export.
I want to only include rows that have any value in column "A" in my export. 
Where do I add this code?

  

    Sub RentalEquipmentList()
    Dim wsA As Worksheet
    Dim wbA As Workbook
    Dim strTime As String
    Dim strName As String
    Dim strPath As String
    Dim strFile As String
    Dim strPathFile As String
    Dim myFile As Variant
    On Error GoTo errHandler

    Set wbA = ActiveWorkbook
    Set wsA = Sheets("RENTALS")
    strTime = Format(Now(), "yyyymmdd\_hhmm")

    'get active workbook folder, if saved
    strPath = wbA.Path
    If strPath = "" Then
      strPath = Application.DefaultFilePath
    End If
    strPath = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\")) & 
    "23-Portal Traveler\"

    'replace spaces and periods in sheet name
    strName = Replace(wsA.Name, " ", "")
    strName = Replace(strName, ".", "_")

    'create default name for savng file
    strName = ThisWorkbook.Sheets("General Info").Range("B8").Value _
          & " Rental Equipment List "
    'create default name for savng file
    strFile = strName & ".pdf"
    strPathFile = strPath & strFile

    'use can enter name and
    ' select folder for file
    myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strPathFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Select Folder and FileName to save")

    'export to PDF if a folder was selected   
    If myFile <> "False" Then
    wsA.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
     'confirmation message with file info
     MsgBox "PDF file has been created: " _
      & vbCrLf _
      & myFile
    End If
    exitHandler:
    Exit Sub
    errHandler:
    MsgBox "Could not create PDF file"
    Resume exitHandler
    End Sub


I get the full sheet exported now which is fine, I just need to filter out rows based on Column "A" value.
Thank you in advance for your help.