Prikladám verziu, ktorá reaguje aj na vstup z iného zdroja (ako iný zdroj som použil iný súbor Excelu na overenie)

Otvor si vedľa seba okná so súbormi:
- "Evidencia čísel.xlsm"
- "Evidencia čísel - Skúška zápisu.xlsm"

Klikaj na tlačidlo Prenos a sleduj, ako sa záznamy radia do Evidencie.

Momentálne (aby si nemusel zadávať až 50 údajov) je nastavená kontrola výskytu duplicity do 10. riadka stĺpca A, potom je povolené opätovné zaevidovanie (síce už sa vyskytujúceho čísla) akoby jedinečnej hodnoty.
Podľa Tvojej požiadavky má obmedzenie fungovať až po 50. riadok, toto sa dosiahne úpravou kódu tak, že namiesto oblasti A2:A10 napíšeš, resp. opravíš na A2:A50)

Novozaraďovaný údaj sa zaraďuje vždy navrch.

P.S.
Súbor "Evidencia čísel - Skúška zápisu.xlsm" slúži len na demonštráciu chovania pri prenesení vstupného údaja z iného zdroja.
Pred stlačením tlačidla Prenos máš označenú bunku, ktorej prenos bude nasledovať. Postupovanie týmito testovacími údajmi je riadené z bunky B1
Ak prepíšeš údaj v B1, prenos bude pokračovať Tebou zadaným číslom (-1)

Súbor "Evidencia čísel.xlsm" musí byť pri prenášaní z externého zdroja, otvorený a musí mať tento názov. Premenovať ho môžeš ale potom musíš opraviť názov i v kóde.

P.S. 2
Poradna dopĺňa názvy súborov, v miestach medzier, pomlčkami. Po stiahnutí na stroj pomlčky z názvu poodstraňuj
Kontrola, či sa jedná skutočne o číslo a či je 10 miestne, sa nekoná, to bude zaručené externým zdrojom vstupných údajov