Grazie Pirelli ora funge tutto correttamente.
Per il punto 2 avete suggerimenti?
"2 - E' possibilie ampliare il rage di dove viene applicata la condizione if ad esempio passare da Range("A3") a Range ("A3:U50"). Ho provato ma da lo stesso errore... ."