Buscar y copiar filas con una fecha determinada en una celda

Debes reemplazar la palabra DATE por la referencia de la celda donde se encuentre la fecha.

Por ej:  miFecha = wsOrigen.Range("M1").Value    'Ajustar la celda que tendrá la fecha

       y en la siguiente instrucción usar esa variable:
       If wsOrigen.Cells(i, fechaColumna).Value = miFecha Then

Otra manera sería indicar directamente la celda:

       If wsOrigen.Cells(i, fechaColumna).Value = wsOrigen.Range("M1").Value Then

Te invito a mirar el video con los contenidos del manual 500Macros (en sus 2 versiones). Todos los códigos en español con aclaraciones y ejemplos varios en cada tema ;)

https://aplicaexcel.com/manuales/ 

I. Hola Iván, por mi parte sólo conozco la función "XLookup" pero entiendo que no es del todo lo que busca.

https://www.reddit.com/r/ExcelTips/comments/1icbat8/xlookup_the_excel_function_you_didnt_know_you/?tl=es-419 

https://www.datacamp.com/es/tutorial/xlookup-vs-vlookup 

Tuve la suerte de ver una información y una serie de respuestas anteriores muy cercanas creo a su consulta, y quisiera adjuntársela por si aún no las hubiese visto y pudiesen serle de alguna utilidad. Si lo desea podría dirigir su consulta a un experto en caso de que no reciba pronto una respuesta.

Le ruego me disculpe por todas las molestias de tanta lectura y la forma de responderle. Ánimo.

https://www.reddit.com/r/excel/comments/1egrxyl/extract_date_from_cell_as_date_variable/?tl=es-es 

https://www-mrexcel-com.translate.goog/excel-tips/finding-dates/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://www-mrexcel-com.translate.goog/board/threads/extracting-only-date-from-cell-containing-text-and-date.687337/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://software-comp-narkive-com.translate.goog/VYfXhCKK/how-can-i-find-and-go-to-a-specific-date-that-i-type-in-a-cell-in-excel?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://stackoverflow.com/questions/65341894/excel-find-specific-date-in-a-cell 

https://stackoverflow.com/questions/76119111/how-to-check-date-in-one-cell-and-enter-string-in-another-cell-based-on-outcome 

https://www-mrexcel-com.translate.goog/board/threads/ctrl-f-to-search-for-date-in-excel.1160550/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://www-atlaspm-com.translate.goog/toms-tutorials-for-excel/toms-tutorials-for-excel-lookup-oldest-and-newest-date/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://superuser.com/questions/1630275/how-do-you-search-for-a-specific-date-in-excel 

https://superuser.com/questions/1440231/excel-formula-to-find-date-in-given-range-entire-column 

https://www.youtube.com/watch?v=6HYxjSav8x4 

https://exceljet-net.translate.goog/formulas/extract-date-from-text-string?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://www-techguy-org.translate.goog/threads/solved-formula-to-find-a-date-and-enter-schedule-in-a-specific-cell-in-excel.867177/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://www.quora.com/Is-there-any-excel-function-that-shows-the-date-when-something-was-written-in-a-cell

https://macabacus.com/blog/search-excel-for-dates 

https://excelx-com.translate.goog/if-cell-contains/date-then-return-value/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://www.reddit.com/r/excel/comments/jo571h/formula_to_determine_if_one_cells_datetime_is/ 

https://trumpexcel-com.translate.goog/check-if-date-is-between-two-dates/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://www.youtube.com/watch?v=k54Ljd0y0-o 

https://www-ablebits-com.translate.goog/office-addins-blog/excel-date-functions/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://www.facebook.com/groups/msexcelexpert/posts/1401988760470846/