Mike,

Here it is:


Do
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-6]C[-1]:RC[-1])"
ActiveCell.Offset(7, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-6]C[-1]:RC[-1])"
Loop

"Mike H" wrote:

Hi,

Post your recorded macro.
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"bondjel" wrote:

I have columns of data and recorded a macro for taking the average of every
seven numerical entries. What syntax do I use to tell the macro to stop
looping when it gets to a blank cell in the column?