Mike,

I only suggested using the blank cell because in my relative ignorance I
thought it would be easiest. But I think your suggested solution worked.
Thanks again.

Jim

"Mike H" wrote:

Hi,

there will no doubt be some comment that selecting cells isn't the best way
to do what you want but if it works for you then so be it. This selects the
cell then checks for data in the cell to the left and if it's empty the loop
terminates

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

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


"bondjel" wrote:

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?