title: Copy and Paste Column to another column
body: <p>I want to search through column headings to find a heading that contains the text &quot;CountryCode&quot;.<br />
  I want to <strong>cut</strong> this column and paste it into the sixth column.</p>
  <p>I know <code>Destination:=Worksheets(&quot;Sheet1&quot;).Range(&quot;E5&quot;)</code>is wrong.</p>
  <p>Screen Shot: Country Code was in Column W. I want to paste into the new F column.<br />
  <a href="https://i.stack.imgur.com/PLSyk.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/PLSyk.png" alt="enter image description here" /></a></p>
  <pre><code>Sub Sample()
      Dim ws As Worksheet
      Dim aCell As Range, Rng As Range
      Dim col As Long, lRow As Long
      Dim colName As String
  
      '~~&gt; Change this to the relevant sheet
      Set ws = ThisWorkbook.Sheets(&quot;Sheet1&quot;)
  
      With ws
          Set aCell = .Range(&quot;A1:X50&quot;).Find(What:=&quot;CountryCode&quot;, LookIn:=xlValues, LookAt:=xlWhole, _
                      MatchCase:=False, SearchFormat:=False)
      '~~&gt; If Found
      If Not aCell Is Nothing Then
      Worksheets(&quot;Sheet1&quot;).Range(&quot;W1:W3&quot;).Cut _
              Destination:=Worksheets(&quot;Sheet1&quot;).Range(&quot;E5&quot;)
              Columns([23]).EntireColumn.Delete
              Columns(&quot;F:F&quot;).Insert Shift:=xlToRight, _
      CopyOrigin:=xlFormatFromLeftOrAbove
      '~~&gt; If not found
      Else
              MsgBox &quot;Country Not Found&quot;
          End If
      End With
  End Sub
  </code></pre>