You can address the Column directly using

ActiveSheet.Cel ls(1,"A").Value = "new value"

e.g. ActiveSheet.Cel ls(rownum,"A"). Value = price_of_apples

This seems to getround the cells problem