Sub test_loop()
Dim iRowIndex As Long
For iRowIndex = 1 To Range("A65000").End(xlUp).Row
Cells(iRowIndex, 4) = Int((iRowIndex + 3) / 4)
Next
End Sub


"Whiz Kid" wrote:

Hello,

I am try to make a macro that will loop thru about 100 cells and add a
number to the last column. The catch is that I would like the first
four cells to have 1 the next four to have two until you et down to the
last four which would have 25.

It might look like this...

Pam 25 45 1
Joe 45 55 1
Peter 34 12 1
Paul 10 10 1
Alex 23 45 2
Alexis 23 11 2
Abby 11 19 2
Bobby 56 43 2
....
....
....
Tony 34 56 25
Tom 34 33 25
Ted 88 76 25
Tana 33 22 25

I have no problem getting the 1 thru 25 on the first cell however I can
not seem get anything I try to make the next three.

Can anybody help?

Blair