Tú konverziu priezviska (příjmení) na veľké písmená som urobil schválne kvôli tom, že to tak máš vo svojom podklade e teda som predpokladal, že to tak má byť!

A aby to dávalo pri mene a priezvisku veľké len prvé písmená, to snáď nemyslíš vážne . Musí byť pre Teba predsa prirodzené písať mená s veľkými úvodnými písmenami.
To už stlačiť Shift pri úvodnom písmene mena je problém, ale písanie nadbytočnej, problémy spôsobujúcej medzery za jednoslovné výrazy Ti nevadí?
Takto odbúravaš svoje "inštinkty"...

Ale ak si o to koleduješ, samozrejme sa dá urobiť aj to. Namiesto predchádzajúcej procedúry s funkciou UCase použi túto:

Private Sub txtPrijmeni_Afterupdate()
Sheets("Seznam").Range("C" & spbPorC + 1) = WorksheetFunction.Proper(txtPrijmeni)
End Sub

Toto bude "treba" aplikovať i na textové pole s menom... predpokladám, že si vydedukuješ ako...

A oživenie tlačidla Konec:

Tlačidlu prideľ vlastnosť Name: cmdKonec
Oprav vlastnosť Enabled: True

a prideľ mu procedúru:

Private Sub cmdKonec_Click()
    frmFormular.Hide
End Sub

A ešte uprav vlastnosť TabStop prvku txtPorC na False

nech Ti pri nábehu formulára nebliká kurzor v políčku s poradovým číslom, kde nemáš čo robiť...

P.S. zváž rozumnú pripomienku čitateľa: zadaním mesta alebo okresu (ak budú riešené rozbaľovacím zoznamom) automaticky priradiť zodpovedajúci kraj bez potreby jeho zapisovania alebo narolovávania.
V takom prípade musí byť v hárku Most zoznam miest (okresov) s pridelením krajov (t.j. dvojice mesto-kraj), alebo pomocným kódom (napr. mesto - č. 1 ÷13, ktorým si mesto privolá správny kraj z nezávislej tabuľky)

Hárok Záloha mi slúžil len k tomu, aby som skúšaním výmazov vedel vrátiť pôvodný obsah (nemá fungovať nijak). Výmaz, pokiaľ sa udeje procedúrou, totiž nejde vrátiť nástrojom "Späť".