Day1 = .Cells(2, 1).Resize(R1).Value2
Pole Day1 načte hodnoty z oblasti A2:A7.
Cells(2,1) vybere buňku A2 a funkce rezize roztáhne oblast o 6 (hodnota proměnné R1) řádků včetně. Tedy z oblasti A2 je pomocí resize oblast A2:A7
Co se týče vypsání obsahu pole do listu např:
Cells(1, 2).Resize(UBound(Day1)).Value = Day1
Opět Cells (1,2) vybere buňku B1 resize rozšíří oblast(funkce UBound(Day1) určí horní mez pole - kolik jmen je v poli, tedy 6) na B1:B6 a vloží se hodnoty z pole Day1.
Ještě přiložím upravený soubor ať se v tom můžeš štourat