Comparar rangos entre hojas y copiar otro rango

Buenas tardes tengo un problema quiero comparar entreo dos rangos de celdas en hojas diferentes y que si los valores de esta celdas coinciden entonces que me traiga por decir el numero de factura y la fecha de esta factura lo estoy haciendo de este modo
Windows("contabilidad.xls").Activate
If Sheet1.Range("A2:B9997").Value = Sheet2.Range("D5:E10000").Value Then
Sheet2.Range("A5:B10000").Select
Selection.Copy
end if
No se si puedas ayudarme gracias