title: VBA Delete all cells in each row except the last used cell
body: <p>Trying to write a script to delete all cells in a row except the last used cell, then move all remaining data to the first column.</p>
  
  <p>See below:</p>
  
  <pre><code>|--| is an empty cell
  |XX| is a cell with unneeded data
  |DATA| is the cell with Data I require.
  
  Before:
  |--|--|--|XX|XX|XX|XX|DATA|
  |--|--|XX|XX|XX|DATA|
  
  After
  |DATA|
  |DATA|
  </code></pre>