Find matching data in 2 worksheets and copy to 3rd

[Frick]

I have 2 data worksheets each with over 2000 rows. What I would like to do is enter a criteria, and then search the 2 data worksheets and look for matches. Then copy those matches to a 3rd worksheets named DATA 3.

I have attached 2 worksheets for reference. DATA 1 and DATA 2 have data. For example, I want to search DATA 1 & 2 looking for Document ID matches. In DATA 1 the Document ID is column A and in DATA 2 the Document ID is Column F. The search would look for the matches in both worksheets and list the resulting matches in a new worksheet named DATA 3.

Ideally, it would be good if I can just list the column name that I am looking for matches and get the results (for example. Document ID or Name, etc)

Thanks for all help offered.

[dangelor]

Possibly...

Option Explicit
Sub Search_Copy()
    Dim d1 As Variant, d2 As Variant
    Dim ws As Worksheet
    Dim i As Long, j As Long, lRow As Long
    
    Set ws = Workbooks.Add.Sheets(1)
    Workbooks("Data 1.xlsx").Worksheets("Sheet1").Rows(1).Copy ws.Rows(1)
        
    'change workbook and worksheet names as needed.
    d1 = Workbooks("Data 1.xlsx").Worksheets("Sheet1").Cells(1, 1).CurrentRegion
    d2 = Workbooks("Data 2.xlsx").Worksheets("Sheet1").Cells(1, 1).CurrentRegion
    
    For i = 2 To UBound(d1)
        For j = 2 To UBound(d2)
            If d1(i, 1) = d2(j, 6) Then
                With ws
                    lRow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
                    Workbooks("Data 1.xlsx").Worksheets("Sheet1").Rows(i).Copy .Rows(lRow + 1)
                End With
            End If
        Next j
    Next i
End Sub

[Sintek]

attached 2 worksheets

2 workbooks you mean

new worksheet named DATA 3.

new workbook you mean or already existing workbook 3