Soubor s řešením v příloze.
Kód listu je tam ten úplně první, z odkazu nahoře, upraven na fungování v řádcích 1-100.

Určitě by to šlo napsat úsporněji, ale jaké nejsem v Excelu žádný expert a optimalizér. Takto se mi to zdá "pohodlné" i pro další případné úpravy (čtení z jiných buněk, zápis jinam). Případně pro zápis vybraných řádků na jiný list (nazvaný JinyList), pak by tam byly řádky "zápisu" (první řádek, další jsou obdobné):

Sheets("JinyList").Cells(1 + poc, 4) = sloup1