Třeba takto, kód sem nekomentoval. Věřím, že to není potřeba.

Edit:
Vyměněná příloha
Přidal sem kód, který pracuje se dvěma poli.

Dodatečně přidáno po 2 hodinách 35 minutách 29 vteřinách:
Ještě sem přidal třetí variantu - dvě pole bez cyklu.
Můžeš otestovat co bude rychlejší.

Aneb chcete mi pomoct, starejte se.
Schválně počkám, zda Ti to dojde.

No, nestačí na to funkce COUNTIF?
Případně s kombinací KDYŽ.

Makro?

https://wordribbon.tips.net/T010761_Generating_a_Count_of_Word_Occurrences.html

Bez makra těžko, při každém přepočtu listu se bude datum/čas aktualizovat.

Option Explicit Sub TestBunek() Dim Bunka As Range For Each Bunka In Range("F4:G11") If IsEmpty(Bunka) = True Then MsgBox "Některá z kontrolovaných buněk je prázdná!", vbCritical, "Chyba !!!" Exit Sub End If Next Bunka 'další kód End Sub Sub TestBunek_Vypis() Dim Bunka...

V příloze je archiv se dvěma soubory. Jeden je zdrojový, který obsahuje list "Sestava", který se bude kopírovat do cílového souboru (s makrem). Zatím je kód bez "zabezpečení" souboru.
Nevím, který soubor je chráněn heslem, jestli cílový nebo zdrojový.
Případně si kód uprav.

Jen nástřel v rychlosti. Otestuj. Option Explicit Sub vyplneni_Index_A_B() Dim posun As Integer Dim i As Integer, x As Integer Dim Index() ReDim Index(1 To 2, 1 To 3) Index(1, 1) = "A" Index(1, 2) = 84 'min Index(1, 3) = 99 'max Index(2, 1) = "B" Index(2, 2) = 1 'min Index(2, 3) ...

No chtělo by to lepší popis, případně i vzorový soubor/y.
Makro si samozřejmě může list odemknout a po úpravě znovu zamknout. Taková menší nevýhoda je, že pokud je list opatřen heslem musí být v kódu uvedeno = dá se z něj vyčíst.

Takto: ? Option Explicit Sub Smazat_data() Dim i As VbMsgBoxResult ' Smazat data ' i = MsgBox("POZOR!! Chcete opravdu vymazat všechna data?", vbYesNo + vbQuestion, "Výmaz dat") If i = vbYes Then ThisWorkbook.Worksheets("Sestava").Range("A2:XFD1048576").ClearCo...

Můžeš tedy polopaticky napsat, jak si představuješ funkci makra, krok po kroku? Kdy se mají zobrazovat a jaké hlášky? Uvedený kód ověří existenci listu "list1" a nabídne jeho odstranění i s vymazáním dat z listu "Sestava" (nebo list2?). Pokud "list1" neexistuje nabídne ...

Option Explicit Sub Smazat_data() Dim i As VbMsgBoxResult ' Smazat data ' If ListExistuje("List1") = False Then i = MsgBox("POZOR!! Chcete opravdu vymazat všechna data?", vbYesNo + vbQuestion, "Výmaz dat") If i = vbYes Then Call Smazat Else i = MsgBox("POZOR!! Chc...