Non si vede bene tutto il codice (trucchetto: puoi incollare la foto direttamente, col solito CTRL+C e CTRL+V) però
il messaggio indica un errore in qualche corrispondenza tra coppie For-Next o IF-End If.
??? che dico ??? potevi incollare il testo direttamente
(anche quello dell'errore, col tasto destro sull'errore)