Io ho provato a mettere nel ciclo for i = A2 to ultimariga

e "ultimariga = Range("A1").End(xlDown)" prima di tutto il codice, ma quando provo a compilare mi da errore di runtime...