I am trying to read information from an excel file but I only want to read rows that have information in them. I am currently using the following loop

VB Code:
  1. For intRow = intStartRow To xlSheet.Cells.Rows.Count

  2.         ' Read each column of each row into the recordset

  3.         rst.AddNew

  4.         rst("LastName") = xlSheet.Cells(intRow, intCol + 1).Value

  5.         rst("FirstName") = xlSheet.Cells(intRow, intCol + 2).Value

  6.         rst("FullName") = xlSheet.Cells(intRow, intCol + 3).Value

  7.         rst("BusinessPhone") = FormatPhone(xlSheet.Cells(intRow, intCol + 4).Value)

  8.         rst("MobilePhone") = FormatPhone(xlSheet.Cells(intRow, intCol + 5).Value)

  9.         rst("Pager") = FormatPhone(xlSheet.Cells(intRow, intCol + 6).Value)

  10.         rst("Email") = xlSheet.Cells(intRow, intCol + 7).Value

  11.         

  12.         rst.Update ' Update temporary table

  13.         

  14.         intCol = 1 ' Move back to the first column

  15.     Next intRow

However xlSheet.Cells.Rows.Count returns all the rows in the excel sheet when there are only 95 rows that have actual data in them. How do I just read the rows that have data in them?