Case ano
To má znamenat co? To testujes obsah promenne ANO, která obsahuje logickou hodnotu ANO/NE. Pokud chces testovat, jestli bunka obsahuje hodnotu ano, pak treba:
if range("$O$9").Value = "ano"
Neni treba nic ukladat do schranky, nemusis prepinat listy, pouze to uloz z jednoho listu do druheho. Listy je mozne adresovat primo.