If you have data in column A and you want to add the numbers to column D
then maybe:

Sub AddNums()
Dim i As Integer
Dim k As Integer
Dim j As Long
Dim eRow As Long
i = 1
k = 1
eRow = Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To eRow
Cells(j, 4).Value = i
If k = 4 Then
k = 0
i = i + 1
End If
k = k + 1
Next
End Sub


Hope this helps
Rowan

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
>