Tohle si zkoušel?
https://luxie.cz/blog/2020/03/01/vychoz ... int-excel/

Číslo sloupce, ve kterém je aktivní buňka: ActiveCell.Column

Upraveno. Kód se po vyhodnocení zeptá na převod do PDF, nebo si ho můžeš spustit "ručně".
Nepíšeš kam se mají soubory ukládat. Tak se soubory PDF ukládají do stejné složky, ve které jsou soubory excelu.

Nemělo by to být spíše takto:

=SUMIF(C16:C1048576;"=";B16:B1048567)+SUMIF(G16:G1048576;"=";F16:F1048567) ...

Upraveno

Pokud stále stojíš o pomoc, bylo by vhodné přiložit onen soubor k nahlédnutí. Pak se může člověk rozhodnout, zda se tomu bude věnovat.
Pokud už máš "slovník" připravený, nemuselo by to být něco složitého.

Ahoj, přikládám svůj pokus o řešení. Oba soubory musí být ve stejné složce. Data se čerpají z listu "List1" - není třeba transpozice. Makro testuje přítomnost listu s názvem podle jména testovaného, pokud neexistuje vytvoří se kopie "Vyhodnocení" pojmenuje podle jména testovaného...

To je nějaký domácí úkol z matematiky?
Jak může být při třech kladných prodejích ze čtyř úspěšnost 150%?
Chce si to hlídat rozsahy vzorců a ujasnit si co vlastně počítám.

Třeba takto?

Teda v tom kódu aby se prase vyznalo.
Upraven kód Tisk v modulu 3 + zarovnání a výška řádků v listu

PS: Nezapomeň si upravit cestu pro ukládání pdf souboru.

Než někdo přijde s lepším řešením, měl bych tento postup W1.png Toto "A žili spolu šťastně až do smrti , Zazvonil zvonec..." se změní na tohle "A žili spolu šťastně až do smrti #, Zazvonil zvonec..." a konečná úprava W2.png Výsledek "A žili spolu šťastně až do smrti . Zazvon...

Tak sem si stáhl sešit z mé odpovědi a všechny varianty jsou funkční viz přiložený soubor. Jedná se o video *.mp4, které je zabalené do *.zip, protože jinak se mi nechtělo přiložit. Jinak příkazy LBound a UBound by se daly přeložit jako min a max. LBound(Pole) vrátí počáteční rozměr, tedy 1 (nebo 0,...