Ho fatto il DEBUG del tuo codice e....
Se lo fai anche tu scoprirai che il tuo codice funziona (in parte),
perchè poi il ciclo For/Next cancella la formattazione infatti copia le celle della riga 11 sulla 10.