Předpokládám, že datumy by byly seřazeny vzestupně, pokud náhodou ne, uprav v makru řádek: /cca padesátý/
If Split(Cells(m, 1), " ")(0) > datumVyhledane And posledni = False Then
místo je větší > dej nerovná se <>citovat
If Split(Cells(m, 1), " ")(0) > datumVyhledane And posledni = False Then
místo je větší > dej nerovná se <>citovat