Sub DelDup()

    Dim i As Long
    Dim wsOne As Workbook
    Dim wsTwo As Workbook
    
    Dim f As Range
    
    Set wsOne = Application.Workbooks.Open((ThisWorkbook.Path & "\1.xlsx"))
    Set wsTwo = Application.Workbooks.Open((ThisWorkbook.Path & "\2.xlsx"))
        
    For i = 1 To wsOne.Worksheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row
        Set f = wsOne.Worksheets(1).Columns(1).Find(wsTwo.Worksheets(1).Cells(i, 1).Value)
        If Not f Is Nothing Then
        wsTwo.Worksheets(1).Cells.Rows(i).Delete
        End If
    Next
    
    ThisWorkbook.Activate

    
End Sub