title: vbscript to delete rows in an excel sheet using a specific condition
body: <p>I have an excel sheet with a <strong>column</strong> containing data as follows and there is data in other columns.</p>
  
  <p>Here there are blank cells between the rows. Between 1014,1027 there is 1 blank Cell. There are 3 blank Cells between 1027 and other 1027 and so on..</p>
  
  <p>Script should delete the rows with more than one blank cell in "column A" between the rows that contains data in "column A".</p>
  
  <p>Eg: Script should delete the rows 1027(starting row always has a value) and next three empty rows, so it should not delete the rows if the gap between two non-empty values is 1. The same process should be done for the entire sheet.</p>
  
  <p>There are more than one empty cell between the following values.</p>
  
  <p>Code</p>
  
  <p>1014</p>
  
  <p>1027</p>
  
  <p>1027</p>
  
  <p>1033</p>
  
  <p>1033</p>
  
  <p>1033</p>
  
  <p>1020</p>
  
  <p>1033</p>
  
  <p>1008</p>
  
  <p>Please suggest me on this.</p>