I populated an entire column using

ActiveCell.FormulaR1C1 = "=(RC[-5]/RC[-1])*52"

and some of the results equate to #DIV/0! based on RC[-1].

I want to read each cell for a variable amount of rows in
a single column, and if the value of RC[-1] is zero, force
the current cell to zero. This would eliminate the divide
by zero from displaying. The above activecell statement
calculates the entire column with 1 statement instead of
looping.

Thanks,