title: Excel VBA - Move Columns depending on name without having a load of variables
body: <p>I'm trying to organise my columns in some VBA code. I need them in a particular order depending on the value in Row A. I know i can do it using the following method but it's very long winded and looks horrible. Is there any more efficient way to do it? </p>
  
  <p>Current Code</p>
  
  <pre><code>    Set Name = Cells.Find(What:="Name", LookAt:=xlWhole)
  </code></pre>
  
  <p>Then activate the cell, find column and then paste to where i want it. So if the columns went like this:</p>
  
  <p>It would change the order to this</p>
  
  <p>I can't just delete the columns that I don't want because they change position. So if i was to delete columns C:C it might delete what i need on occasion. </p>
  
  <p>I need it so that no matter what columns are there, or how many, it will also go in the same order as shown above. </p>
  
  <p>Thanks</p>