title: Move selected range over one column with VBA in Excel 2016
body: <p>I need to be able te</p>
  
  <ol>
  <li>Find a value in column A</li>
  <li>Select that value and everything above it</li>
  <li>Offset all those values over one column</li>
  </ol>
  
  <p>The below code does just that - however, I am trying to speed up the code execution, and copy and paste actions slow it down. Is there a way to accomplish this without the cut/paste? I'd like to stick with VBA (vice formula) since this is part of a larger procedure.</p>
  
  <p>Thanks!</p>
  
  <pre><code>Sub FindValueAndAboveThenMoveOver ()
      Dim sht1 as Worksheet
      Set sht1 = Sheets("Convert")
  
      sht1.Columns("A:A").Find("XXXX"), LookIn:=xlValues).Select
      Range(ActiveCell.Offset(0, 0), "A1").Select
      Selection.Cut
      Range("B1").Select
      ActiveSheet.Paste
  End Sub
  </code></pre>