title: Unable to find how to code: If Cell Value Equals Any of the Values in a Range
body: <p>I have found the following code after a lot of research and it does a little of what I want it to do except I don't know how to specify the criteria to reference a range of cells instead of just one single criteria.</p>
  
  <p>I am also trying to copy the records and append them to the end of the rows of the matching records in Sheet1.  This code only copies the records to Sheet3 so they aren't pasted with their corresponding rows in Sheet1 like I want.</p>
  
  <pre><code>Sub copytosheet()
  
   Dim sRng As Range, cell As Range
   Dim dRng As Range
   Set sRng = Sheets("Sheet2").Range([A2], [A65536].End(xlUp))
   For Each cell In sRng
   If cell.Value = "80560" Then
   Set dRng = Sheets("Sheet3").[A65536].End(xlUp)(2, 1)
   cell.EntireRow.Copy dRng
   End If
   Next
   End Sub
  </code></pre>
  
  <p>So, there are 10,000+ records in Sheet2, and 30+ records in Sheet1.<br>
  Sheet2 and Sheet1 have an ID number in Column A.<br>
  All of the records in Sheet1 will have a matching record in Sheet2.<br>
  I want to copy the records from Sheet2 and append them at the end of the record with the same ID in Sheet1.<br>
  The code above doesn't solve my problem because it only finds the one record "80560" and copies it to sheet 3.<br>
  Thank you so much in advance for any assistance you can offer :)</p>
  
  <p>-Lindsay</p>