Copiar valor si dos columnas coinciden

Hace unos días vi una macro que habías adjuntado que compara dos columnas y los valores iguales los copia en una tercera, ¿mi pregunta se podría modificar para que esa misma macro para que compare la columna a y b de la hoja 1 con la columna a y b de la hoja2 y si los datos coinciden que copie los datos en la columna de y e de la hoja 2?

Sub compara()
'Por.DAM
For i = 2 To Hoja1.Range("b" & Rows.Count).End(xlUp).Row
Set b = Hoja2.Columns("b").Find(Hoja1.Cells(i, "b"), LookAt:=xlWhole)
If Not b Is Nothing Then _
Hoja1.Rows(i).Copy Hoja3.Range("a" & Hoja3.Range("a" & Rows.Count).End(xlUp).Row + 1)
Next
End Sub

Esta era la macro que enviaste.