Egy hiba megvan, az IV után kimaradt a sorszám, de az

uoszlop = Range("IV1").End(xlToLeft).Column

sorral is hibára fut. Szerinte az uoszlop értéke True.