Do loop countdown

[bahllr]

I am trying to do a 'countdown' for the number of items in a list in VBA. I use (cell DA4), the below counta formula and would like the do loop under that to move down one cell (offset formula) and put in the formula (cell above -1). I want this loop to end when the activecells value = 2.

ActiveCell.FormulaR1C1 = "=COUNTA(RC[-103]:R[13]C[-103])+1"
Do Until ActiveCell.Value = 2
ActiveCell.Offset(1, 0) = "=R[-1]C-1"
Loop

Unfortunately, it isn't acting like I thought it would. Any ideas why?

Thanks!

 

[Norie]

Could you post some sample data?

What do you mean by a 'countdown'?

Do you just want to number the items in the list?

Or are you trying to do some sort of count of them?

 

[bahllr]

Norie,

Sorry for the confusion. I have a matrix that I have counted the rows (the matrix is dynamic).

The counta formula that counts the rows is found in cell DA4. If the current cell value is 15, I want the cell below it to be 15-1 or 14. The cell below that 14-1 or 13.

I want this loop to stop when the value of the current cell is equal to 2.

I thought the following code would do this but it isn't looping through the cells as I thought it would.

Do Until ActiveCell.Value = 2
ActiveCell.Offset(1, 0) = "=R[-1]C-1"
Loop