title: need be more dynamic when using search function in vba
body: <p>I have the following code and is stuck when wondering how to make the search result more dynamic, that is after searching the "price", i need to copy the "price" and the cell at the right of it to cell A1, any help is appreciated.</p>
  
  <pre><code>Sub Macro1()
      Cells.Find(What:="price", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
          :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
      False, SearchFormat:=False).Activate
      Range("L14:M14").Select
      Selection.Copy
      Range("A1").Select
      ActiveSheet.Paste
      Range("A1").Select
  End Sub
  </code></pre>