Buscar repetidos con dos condiciones
cordial saludo
solicito su colaboración ya que necesito un código vba que busque repetidos si se cumplen dos condiciones. Tengo en un libro (A) de excel datos que se diferencian de los otros por las columnas A e D y necesito pegar estos datos en otro libro (B) siempre y cuando no se encuentren en libro (B). Las columnas del libro (B) son A e I.
tengo el siguiente código que valida la información de una sóla columna pero no sé como hacerlo para las dos condiciones. Les dejo el código que sé no es muy pulido
ThisWorkbook.Activate 'libro(A)
Sheets("Consolidado").Select
Range("D2").Select
Do While Not IsEmpty(ActiveCell)
valor = ActiveCell.Value
On Error Resume Next
Windows("Consolidado General.xls").Activate 'Libro (B)
Sheets("Consolidado").Select
Columns("I:I").Select
Selection.Find(what:=valor, after:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
If valor <> ActiveCell.Value Then
ThisWorkbook.Activate
Sheets("Consolidado").Select
ActiveCell.Offset(0, -3).Activate
Else
ubicación = ActiveCell.Address
Range(ubicación).Select
ThisWorkbook.Activate
Sheets("Consolidado").Select
ActiveCell.Offset(0, -3).Activate
Range(Selection, Selection.Offset(0, 8)).Select
Selection.Copy
Windows("Consolidado General.xls").Activate
Sheets("Consolidado").Select
ActiveCell.Offset(0, 5).Activate
'ActiveCell.Activate
Selection.PasteSpecial Paste:=xlPasteValues
End If
ThisWorkbook.Activate
Sheets("Consolidado").Select
Application.CutCopyMode = False
ActiveCell.Offset(1, 3).Activate
Loop
ThisWorkbook.Activate
Sheets("Consolidado").Select
Agradezco su colaboración