Macro para realizar búsqueda de resultados múltiples

Hola buen dia, tengo un pequeño archivo
una macro que he aplicado para realizar una búsqueda por dos condiciones,(NOMBRE o COLONIA) o (NOMBRE Y COLONIA)

Sub BUSCADOR()
With Worksheets("BUSCADOR").Range("B1:C1")
Sheets("DATOS").Range("A1:F11").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("B1:C2"), CopyToRange:=Range("A5:F5")
End With
End Sub

he adjuntado dos imágenes de las hojas:

http://es.zimagez.com/zimage/hojabuscador.php"target="_blank" title="HOJA BUSCADOR"

http://es.zimagez.com/zimage/hojadatos.php"target="_blank" title="HOJA DATOS"

de las cuales hace referencia esta macro, la macro funciona muy bien pero en este
ejemplo de macro solo estoy tomando en cuenta un listado de 11 filas de
información (A1:F11), en mi archivo en el cual estoy aplicando esta macro se
trata de 500 filas y al ejecutarla para ese rango de filas o de mayor rango, se
tarda mucho, se tarda cerca de 20 segundos en traerme la información, mi
pregunta es hay alguna otra forma de hacer esta macro mas rápida mas ágil,
pregunto porque en el siguiente ejemplo las instrucciones hacen lo mismo pero
una lo hace mas rapido que la otra:

ejemplo 1:
Range("A1:A100").Select
Selection.ClearContents

ejemplo 2:
Range("A1:A100") = ""

el ejemplo 2 da resultados mas rápidos, hay algo asi como alguna instrucción que lo haga mas simple para aplicar a la macro del buscador para agilizarla??
Saludos