title: Find last row , erasing header
body: <p>If a2 cell is empty below code erase the header and if i add +1 its keep adding zero</p>
  
  <p>can i find last empty row without erasing header even a2 is empty?
  (a1 is header)
  Thanks</p>
  
  <pre><code>Dim lastrow As Long
  
  lastrow = Cells(Rows.Count, "a").End(xlUp).Row
  
  With Range("a2:a" &amp; lastrow)
  
  End With
  </code></pre>