title: Find a Value in a Column & Copy the Contents of the Row to Row Below It
body: <p>I need help with a project i am working on. I am trying to find a certain value in Column A - once that value is found - move to Column B &amp; copy the contents of Column B-N into the row below it - there are breaks or rows in the data and it only seems to be &quot;finding down&quot; until the first break in the data - would someone be able to help?</p>
  <p>Thanks for the time - my current code is below:</p>
  <pre><code>Worksheets(&quot;Chg&quot;).Activate
  
  Range(&quot;A5&quot;).Select
  Range(Selection, Selection.End(xlDown)).Select
  
  Set FoundTheCell = Selection.Find(What:=&quot;'8/2020&quot;, After:=ActiveCell, _
      LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
      SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
  
  If FoundTheCell Is Nothing Then
      MyMsg = &quot;The column 'During' was not found.&quot; &amp; vbCrLf
      GoTo err_subCopyLastRowandReplace
  Else
      FoundTheCell.Offset(0, 1).Activate
  
  lastrowchange = Range(Selection, Selection.End(xlRight)).Select
      
  lastrowchange.Offset(1).Formula = lastrowchange.Formula
      
  End If
  
  exit_subCopyLastRowandReplace:
  Application.Cursor = xlDefault
  Application.ScreenUpdating = True
  Exit Sub
          
          
  err_subCopyLastRowandReplace:
  MyMsg = MyMsg &amp; &quot;Errored out in subCopyLastRowandReplace&quot; &amp; vbCrLf
  MyMsg = MyMsg &amp; &quot;Error was: &quot; &amp; Err.Description
  MsgBox MyMsg, vbOKOnly, MyTitle
  Resume exit_subCopyLastRowandReplace
  </code></pre>