Prima di tutto hai centinaia di celle inutilmente occupate. Te ne accorgi semplicemente facendo un Ctrl+Fine in tutti i fogli e noterai che il cursore ti si ferma verso la riga 300 (c'è chi va anche oltre). Se selezioni tutte le righe dopo l'ultima utilizzata fino alla fine del foglio e le Elimini e fai la stessa cosa per le colonne per poi salvare il file noterai che la sua dimensione si riduce di parecchio.
Poi ci sono alcune celle che sembrano vuote ma in realtà non lo sono. Molti post fa ne avevo riscontrate diverse ma ora non ho nessuna intensione di cercarle nuovamente; te ne accorgi quando in alcune righe fai un'operazione e la stessa non va a buon fine mentre in altre righe funziona benissimo.
"Application.EnableEvents = False" e "Application.EnableEvents = True" vanno sempre in coppia, prima il "False" per disattivare la gestione degli eventi e quando servono nuovamente si mette il "True".
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)