Macro Copy Cells between sheets in Excel

Hello,

I am relatively new to macros and am having trouble with a code. I would greatly appreciate any help you can give me.

The problem is I have two worksheets and I need to copy the data from a cell in Sheet2 to a cell in Sheet1 if the values of two other rows equal. So, if the values of any cell from A12:A100 in Sheet2 equals the value of any cell from F12:F40 in Sheet1, then I need the corresponding value in the D column of Sheet2 to go to the N column of Sheet1. Below is a code I wrote, but it only compares one set of cells at a time. To use this I would have to have over 2000 (For codes) in the one macro.

Private Sub CommandButton2_Click()

    For Each Cell In Sheets("PASTE").Range("A12")
    
    If Cell.Value = Sheets("TSS").Range("F12") Then
    
    Sheets("PASTE").Select
    Range("D12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TSS").Select
    Sheets("TSS").Range("N12").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats = Empty, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False

    End If

    Next
    
End Sub

Again, I appreciate any help you can give me.