title: Find last cell in a column with a value and move values to new columns/cells
body: <p>I have a macro I'm working on for my job, and I'm stumped. </p>
  
  <p>In my Excel sheet, I have a column (column IE) which will have either "Monthly", "Bimonthly", or "Quarterly" in the cells in that column, depending on the account in that row (each row is a different account, and that account could be paying in any one of the 3 different ways). There can possibly be null values in some of the cells, and each time I run this macro, there will be a different amount of rows with values.</p>
  
  <p>I need to move the cell values from column IE into corresponding "Monthly" (column B), "Bimonthly" (column C) and "Quarterly" (column D) columns, in the same row. </p>
  
  <p>Is there a way to:</p>
  
  <ol>
  <li><p>get to / find the end of the data / rows, in column IE (not just stopping at the first null value)</p></li>
  <li><p>determine which of the 3 values is in each row of column IE</p></li>
  <li><p>move those values to the correct column of that same row, depending on the value (Monthly - column B, Bimonthly - column C, or Quarterly - column D)?</p></li>
  </ol>
  
  <p>Could I do something like:</p>
  
  <pre><code>Dim lastRow As Long
  
  lastRow = ActiveSheet.Range("IE" &amp; Rows.Count).End(xlUp).Row
  Do While ActiveCell.Row &lt;=lastRow
  </code></pre>
  
  <p>And then add my code to do the "cell value movement" part?</p>