Mi dice prevista istruzione "end if" dove hai messo il controllo del doppione.

Premetto che ho adattato il codice al mio data!