title: Find a strings in a cell and copy the found cell to a specific cell by VBA
body: <p>need help in Excel VBA, please. I am trying to find a string in a cell and if found want to copy the cell to a specific cell, want to loop for next rows until end of data rows. I used the code as follows it find and copy but copy to the next cell, I need in a specific cell. Thank you.</p>
  <pre><code>    Sub TEST()
  
      Dim c As Range
  
      For Each c In Range(&quot;B1:K100&quot;)
          If InStr(1, c.Text, &quot;Address:&quot;) Then
              c.Copy Destination:=c.Offset(ColumnOffset:=1)
          End If
      Next c
  
      End Sub
  </code></pre>