¿Mejorar el filtro por fechas en un rango de celdas por codigo VBA ?

Tengo un libro de excel en la que en una hoja se van introduciendo registros cada dia y a posteriori tenemos que filtrar por fechas.

Asi pues tengo seleccionado todo el rango de la columna A con datos... Llamandole RangodeBusqueda y comparo (con un Offset) las fechas introducidas en la columna B.(ver foto).

El código que empleo de búsqueda es el siguiente:

FechaENTRE y FechaY... Son datos que introduzco en un TextBox de un formulario.

Sub BusquedaEntreFechas

For Each celda In Range("RangodeBusqueda")

ValorCeldaEach = celda.Offset(0, 1)

If CDate(ValorCeldaEach) >= CDate(FechaENTRE) And CDate(ValorCeldaEach) <= CDate(FechaY) Then

fila = celda.Row

Call CopiarRangoaOtraHoja

End If

Next celda

End sub

El problema es que se ralentiza mucho...¿Cómo puedo ganar velocidad en este filtrado?