title: Insert New Column in Table Excel VBA
body: <p>I'm running into some issues on a worksheet that I'm building.  I want to insert a column at a specific location in a table and then set the header.</p>
  
  <p>I searched around for a while, and found (some version of) the following code:</p>
  
  <pre><code>ActiveSheet.Columns(2).Insert
  </code></pre>
  
  <p>This works to insert the column, but I'm not sure how to change the header of the table after this.</p>
  
  <p>Also, I previously got some advice here on adding columns to the end of a table and naming them.</p>
  
  <p>The code for that is:</p>
  
  <pre><code>Dim oSh As Worksheet
  Set oSh = ActiveSheet
  Dim oLc As ListColumn
  Set oLc = oSh.ListObjects("PropTable").ListColumns.Add
  
  oLc.Name = "XYZ"
  </code></pre>
  
  <p>I tried combining these two methods in various ways, but I'm not having any luck.  Is there any way to modify the second block of code so that it inserts a column in a specific location, rather than just adding a column?</p>
  
  <p>Thanks.</p>
  
  <p>-Sean</p>