Buscar y copiar filas con una fecha determinada en una celda

Necesito saber como hacer la fórmula para que me localice la fecha que tengo en una determinada celda y no en este caso que así solo me busca la fecha del día de hoy
   'Encontrar la última fila con datos en la hoja de origen
    lastRow = wsOrigen.Cells(wsOrigen.Rows.Count, fechaColumna).End(xlUp).Row
    'Encontrar la última fila vacía en la hoja de destino
    destRow = wsDestino.Cells(wsDestino.Rows.Count, fechaColumna).End(xlUp).Row + 1
    'Bucle para recorrer las filas
    For i = 2 To lastRow 'Asumiendo que la fila 1 son encabezados
        'Verificar si la fecha en la celda es igual a hoy
        If IsDate(wsOrigen.Cells(i, fechaColumna).Value) Then
        If wsOrigen.Cells(i, fechaColumna).Value = Date Then
                'Copiar toda la fila
                wsOrigen.Rows(i).Copy Destination:=wsDestino.Rows(destRow)
                destRow = destRow + 1
           End If
        End If