title: Inserting a Column from One Sheet to the Other Sheet
body: <p>I am currently trying to copy 4 columns from my &quot;Old&quot; sheet to my &quot;Current&quot; sheet. This is the current code that I have:</p>
  <p><code>Sub PasteData()</code></p>
  <p><code>Sheet3.Range(&quot;J1:M252&quot;).Copy</code></p>
  <p><code>Sheet1.Range(&quot;J1:M252&quot;).Insert Shift:=xlShiftToRight</code></p>
  <p><code>Application.CutCopyMode = False</code></p>
  <p><code>Sheet1.Range(&quot;J253:J462&quot;).Offset(ColumnOffset:=4).Insert Shift:=xlShiftToRight</code></p>
  <p><code>'Inserts the comments from the &quot;Old&quot; sheet</code></p>
  <p><code>End Sub</code></p>
  <p>This copies and pastes the columns fine, but it is replacing the data that I currently have in the 4 columns for the &quot;Current&quot; file. I want to make it so that everything that is being replaced in those columns moves to the right. Thank you.</p>
  <p><strong>EDIT</strong>
  I've run into a problem. I pasted the columns in just fine, but there is still data that has not moved to the right. I plan to leave the columns J-M empty after row 252. I want to shift J253:Y282 (the highlighted cells) to the right from column N-AC. I inserted a picture to give a better description.</p>
  <p><img src="https://i.stack.imgur.com/hx9Mi.jpg" alt="enter image description here" /></p>