What is the best way to modify this so that only the cells in Column A are shaded .Interior.colorIndex = 19