Automatyczne dodawanie danych za pomocą VBA

Dzień dobry,
Wykonałem makro za pomocą VBA do dodawania danych przy pomocy formularza wykorzystując tutorial z youtuba

Przy włączeniu formularza pojawia się błąd.

Jako że moja praca jest odtwórcza, nie jestem w stanie poprawić błędu, dlatego proszę o pomoc.
Załączam plik :)

Wywal spację tu:

    iRow = [Counta(Dane!A:A)] ' idetifying the last row

(między Counta a nawiasem)

Działa :)
Super dziękuje za pomoc, po poprawieniu tego błędu był jeszcze jeden, ale z tym już sobie poradziłem.