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/buscador.php

http://es.zimagez.com/zimage/datos.php

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, algo asi hay que pueda yo aplicar a la macro del buscador para agilizarla??

Saludos