Autonumber Until Certain Value then Restart

I hope I can articulate clearly what I'm trying to do.

So I have a list of data that I do not know the length of in advance. I need to automatically number each entry (the entries themselves make no difference) to a certain number and then start back at one. So say I have a list of 9 entries and I want them to label 1, 2, 3, 4 and then on the 5th entry is starts back at one, then at the 9th entry it's 1 again and so on for longer lists. My mind just isn't wrapping around the code for this. I've attached a sample workbook with what I've thought of so far but I just don't even know where to begin to get it to start over. I've tried nested for-loops but I get errors....

hi sperryxx, is this option acceptable? Or do you want to have loop code for the issue?

Sub test()

Dim lrow As Long

lrow = Cells(Rows.Count, 3).End(xlUp).Row
If lrow = 1 Then Exit Sub

With Range("a2:a" & lrow)
    .Value = "=If(ROW(A1)=1,1,IF(MOD(A1,5)=0,1,A1+1))"
    .Value = .Value
End With

End Sub

Change number (currently 5) to get different last group number

Awesome, works beautifully, thank you! :]

Although, looping might work for what I am going to have it evolve into later....

option:

Sub test()

Dim lrow As Long, i As Long, j As Long

lrow = Cells(Rows.Count, 3).End(xlUp).Row
If lrow = 1 Then Exit Sub

result = Range("a1:a" & lrow)

For i = 2 To lrow
    j = j + 1
    If j > 5 Then j = 1
    result(i, 1) = j
Next

Range("a1:a" & lrow) = result

End Sub

YAY! Thank you :]