Macro que se queda en el limbo

¡Como pitonisa no tengo precio!

La macro que he grabado usando la función ESNOD(COINCIDIR) para que me marque los registros que son iguales y poderlos eliminar a posteriori se me ha quedado en esto:

Sub COMPARADATOS()
Sheets("BASEDATOS").Select
Range("AM1").Select
ActiveCell.FormulaR1C1 = "=ISNA(MATCH(BASEDATOS!RC[-3],Hoja2!C[-30],0))"
Range("AM1").Select
Selection.AutoFill Destination:=Range("AM:AM"), Type:=xlFillDefault
Range("AM:AM").Select
End Sub

Pero se queda colgada. Son muchos registros los que tiene que mirar y recorrer toda la columna. He intentado ponerle un tope de 22000 filas en el último rango pero, claro, no me deja. ¿Habrá alguna manera de facilitarle el trabajo?. No puedo seguir adelante si no funciona esta.

Gracias mil,