VBA代码根据单元格A中的值在任何列中运行子例程

I'm trying to use a Do Until to run down a column of data (could be any column across the worksheet) and perform certain tasks based on the value in column A.I'm trying to use a Do Until to run down a colu