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
>
>