title: Excel VBA: Find parameter, copy found row to another Worksheet (pasting starting at specific cell)
body: <p>Having 2 Worksheets (<strong>UPDATED,CHANGES</strong>) each one have parameters in each column in variable order</p>
  <p><strong>UPDATED</strong> Worksheet has the columns:</p>
  <p><em>Name    /    Value    /    Units</em></p>
  <p><strong>CHANGES</strong> Worksheet has the columns:</p>
  <p><em>Status / Name    /    Value    /    Units</em></p>
  <ol>
  <li>So first I search in <strong>CHANGES</strong> a row with the <em>Status</em>: CHANGE</li>
  <li>Then I need to get the <em>Name</em> of that row</li>
  <li>To find it in <strong>UPDATED</strong> and copy the whole Row</li>
  <li>And copy it in the position after the column <em>Status</em> where the name was found</li>
  </ol>
  <p>Each Name is unique but as I mentioned before has a variable position, my code so far:</p>
  <pre><code>Sub CopyRealChange()
      Dim sh1 As Worksheet, sh2 As Worksheet
      Dim lr As Long, r As Long, x As Long
      Dim chng As Range
      Set sh1 = ThisWorkbook.Worksheets(&quot;UPDATED&quot;)
      Set sh2 = ThisWorkbook.Worksheets(&quot;CHANGES&quot;)
  
      lr = sh2.Cells(Rows.Count, &quot;A&quot;).End(xlUp).Row
      x = 2
      For r = 2 To lr
          If Range(&quot;A&quot; &amp; r).Value = &quot;CHANGE&quot; Then 'Evaluate the condition.
              'Sh2.Range(&quot;B&quot; &amp; x).Value = Sh1.Range(&quot;B&quot; &amp; r).Value 'Copy same Column location
              'FIND
              With Worksheets(2).Range(&quot;a1:a1000&quot;)
                  Set chng = .Find(sh2.Range(&quot;B&quot; &amp; x).Value, LookIn:=xlValues)
                  If chng Is Nothing Then
                      sh1.Range(c).EntireRow.Copy Destination:=sh2.Range(&quot;B&quot; &amp; x)
                  End If
              End With
              'FIND
              
          End If
          x = x + 1
      Next r
     
      
  End Sub
  </code></pre>
  <hr />
  <p>Concerns with the code show an error at this line (in the FIND)</p>
  <pre><code>sh1.Range(c).EntireRow.Copy Destination:=sh2.Range(&quot;B&quot; &amp; x)
  </code></pre>