Sheets("List1").UsedRange.Rows.Count +1
Stejně tak netuším jak se zapisují jednotlivá data do příslušných řádků po sobě.
Celkově - dosti zmatený dotaz.
Nicméně Sheets("List1").UsedRange.Rows.Count +1 vrací hodnotu posledního použitého řádku zvýšenou o +1 - v tomto případě.
rd_zapis = Sheets("List1").rd_primarni.Rows.Count + 1 nedává vůbec žádný význam a takováto funkce není ve VBA platným příkazem. Proměnná rd_primarni je v tomto zápise zcela nesmylná - obsahuje číslo.citovat