title: Deleting rows in Excel based on criteria via Access VBA
body: <p>I am working on a module that will format an Excel spreadsheet for import into Access.  The spreadsheet comes from the source with 7 rows of header data, the data I need, and 4 rows of jibberish below the data.  So far I have gotten through deleting the header info:</p>
  
  <pre><code>Sub ExcelFormat()
  Dim excelApp As Object
  Dim excelWB As Object
  Dim excelWS As Object
  Set excelApp = CreateObject("Excel.Application")
  Set excelWB = excelApp.workbooks.Open("Z:\Data\Test.xlsx")
  excelApp.screenupdating = True
  excelApp.Visible = True
  Set excelWS = excelWB.worksheets("TestData")
  excelWS.Rows("1:7").Delete
  </code></pre>
  
  <p>I am having trouble selecting the first blank cell in A and deleting it and the 4 rows beneath it.  Thanks in advance.</p>