No, když Ti to takhle stačí, proč ne...
Jsou tam ale věci, které bych takhle určitě nenechal (o něčem už jsem psal):
- větvení ElseIf bych úplně odstranil
- vyhnul bych se používání .Select
- pro kopírování bych použil tu druhou zjednodušenou verzi s parametrem "Destination"
- smazání listů bych provedl v cyklu "For Each" jediným příkazem "Range(...).ClearContents"
- k zadání dat bych použil místo InputBoxů vstupní formulář nebo umožnil přímo zadat do tabulky. V obou případech máš mnohem větší možnosti pohlídat si validnost vstupních dat

A malá poznámka nakonec: co rodná čísla a GDPR?