Macro che non fa archiviare se e un duplicato

Salve ragazzi io avrei un problema non sono molto esperto di macro ma con un po di tutorial o imparato a creare una macro che mi sposta e quindi archivia un codice di prodotto da uno foglio all'altro ora il problema si pone quando vorrei fare in modo che se io scrivo nel
foglio 1 un numero di prodotto e che nel foglio due e già presente vorrei che una volta azionata la macro faccia in modo che non mi archivi il codice perche già esiste nel foglio2 e mi mandi un MSGBOX dicendomi lotto gia presente dico e possibile cmq allego il file dimenticavo la macro che ho creato mi archivia fino a 85 lotti in una volta quindi mi chiedo se sia possibile poter avere lo stesso funzionamento con l'aggiunta che vi ho scritto sopra.

il modo più semplice è registrare una macro che rimuove i duplicati nel foglio 2, quindi attiva il registratore, vai sul foglio2, posizionati sulla cella A5, Dati, Rimuovi duplicati, seleziona solo Lotto, OK.
Aggiungi il codice registrato in fondo alla macro già esistente

ho gia allegato il file

cmq ho fatto come mi hai detto ma non funziona