Zdravím,

mám 305 listů (pořadí listů je 2 až 306), na které potřebuji nakopírovat data z "List1".
Na "List1" je v buňkách A2:A3603 název listu, na který se kopíruje (např. 719; 719; 713a;713a;713a;710;atd) v buňkách A2:BA3603 jsou data, která chci zkopírovat (tedy vč. názvu listu).
Po spuštění makra to tedy bude vypadat tak, že vezme všechny buňky A2:BA3603, které ve sloupci A obsahují výraz "501A" a zkopíruje je do listu "501A" do buněk A2:BAxxx (podle počtu dat).
Data jsou ve sloupci A seřazena sestupně.
Na "List2" mám pomocná data: buňky A1:A305 obsahují sestupně názvy listů, C1:C305 řádek, na kterém v "List1" začínají data pro vybraný list, D1:D305 řádek, na kterém v "List1" končí data pro vybraný list.

Zkouším něco takového:

For i = 2 To 306
Worksheets(i).range("A2").Value = Worksheets("list1").Range(worksheets("list2").cells(cells(i-1,3),cells(i-1,4)).Value

Next i