title: Delete blank cells in range
body: <p>I want to delete blank cells in a range (E1:E130).</p>
  
  <p>This code skips cells.</p>
  
  <pre><code>For Each cell In ranger
      If cell.Value = "" Then
          cell.Delete
      End If
  next cell
  </code></pre>
  
  <p>To make my objective more clear: I have a list of cells with text and empty cells in the range E1:E130 and I want to make a list starting on E1 without any empty cells.<br>
  Sorting on alphabet for instance would also be a good solution, however that didn't work out for me either.</p>