用For循环清除行的内容

I have code that is designed to loop through each cell in a row and delete them EXCEPT for the A and O columns. When I run this code it only deletes the second column. I have code that is designed to loop through ea