title: Separate a comma delimited string located in a cell to a column
body: <p>I have a comma delimited string (<code>aad,adaa,,dadae,,,eresa,,baaa</code>) in cell <code>A1</code> of <code>Sheet1</code> which I want to split and insert values in a column such as:</p>
  
  <pre>
  aad
  adaa
  
  dadae
  
  
  eresa
  
  baaa
  </pre>
  
  <p>Empty values will skip a cell and insert the string in next cell.</p>
  
  <p>I am able to separate the string to a row but how could I do it to a column?</p>
  
  <p>Here is my line to split the string to a row:</p>
  
  <pre><code>Sheets("Sheet1").Range("A1").TextToColumns
  </code></pre>