I\'m trying to convert a VBA code for inserting blank rows (and populating them) based on value in cell above and then replace all values with 1. Unfortunately, VB is not su