title: Copy entire row if the column contains any value of another column in VBA
body: <p>I'm new in VBA.
  I have 3 sheets: 'Sunday', 'coords' and 'filtered'. 
  I want to check if 'A' column of the sheet 'Sunday' is equal any of values in the column 'J' of 'coords' sheet.
  If TRUE - copy the row in the 'filtered' sheet.</p>
  
  <p>So far I have tried the following code:</p>
  
  <pre><code>Sub CopyRow()
  
  Dim lastRow As Long
  Dim sheetName1 As String
  Dim sheetName2 As String
  Dim sheetName3 As String
  
      sheetName1 = "Sunday"            'Insert your sheet name here
      sheetName2 = "coords"
      sheetName3 = "filtered"
      lastRow = Sheets(sheetName1).Range("A" &amp; Rows.Count).End(xlUp).Row
  
      For lRow = 2 To lastRow         'Loop through all rows
  
          If Sheets(sheetName1).Cells(lRow, "A") = Sheets(sheetName2).Cells(lRow, "J") Then
              c.EntireRow.Copy Worksheets(sheetName3).Range("A" &amp; Rows.Count).End(xlUp).Offset(1)
          End If
  
      Next lRow
  
  End Sub
  </code></pre>
  
  <p>Any help is greatly appreciated</p>