Adaytay: Your above solution will run, but it will mess up as you delete the columns. You need to loop backwards.



For i = Range("IV1").End(xlToLeft).Column To 2 Step -1