Pro příště, bylo by vhodné uvést případnou chybovou hlášku, nebo kde v kódu dojde k chybě než konstatovat - nelze.

Tady bude "zádrhel" v deklaraci proměnné:
Dim i As Integer změn na Dim i As Long

??? Sub Test() Dim Sledovana_oblast(), Datova_oblast() Dim i As Integer With List1 'CodeName listu si případně změň podle svého souboru Sledovana_oblast = List1.Range("O4:O2000").Value ReDim Datova_oblast(1 To UBound(Sledovana_oblast), 1 To 2) For i = LBound(Sledovana_oblast) To UBound(Sl...

Vyzkoušej makro

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?