Však to je v pořádku, takhle to úplně stačí. 
Příloha?
Všiml jste si, že máte hromadně označené všechny listy? Po zrušení výběru všech listů makro funguje.
Tady máte i jiná makra která zamknou všechny listy.
Všechny fungují jak mají.
Jiří497 napsal/a:
Tak to jsem zvědavý, jestli někdo/elninislov něco vymyslí. Podle mě to je zadání pro umělou inteligenci.
Ano, když jsem zkopíroval Váš kód do excelu, tak mi to fungovalo. Problém bude jinde.
Třeba
Chápu, že jsou to citlivá data, ale bez přílohy to jen těžko vyřešit. Nešlo by změnit např. jména atd. a vložit přílohu?
Ještě verze pokud chcete zvýraznit celý řádek.
A Vy tam použiváte svyhledat? V příkladu nic takového není a co se týče číslování to funguje jak má.
Něco takového?
Nemáte třeba jiný název listu?
No jelikož na O_2016 i O_2019 to funguje tak bude asi problém v O_365.
S tím bohužel nemám skušenosti a ani jak to vyzkoušet. Třeba tady kluci na něco příjdou.
A chybu už to nehází?
Problém je v těch sloučených buňkách.
Dejte si tam toto:
.Range("O9,P9,D62,D64,G62,F62:H62,F64:H64")
Na Office 2016 mi to funguje.
Jedná se Vám o buňky H63 a O9?
Oblíbený formulář Faktura byl vylepšen a rozšířen.

Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.