I have a spreadeheet that look like this:

AccountNo Date Interval
1234 10/16/2005 00:00.1
1234 10/16/2005 00:00.1
1234 10/16/2005 00:00.1
1234 10/16/2005 00:00.1
1234 10/16/2005 00:00.1
1234 10/16/2005 00:00.1
1234 10/16/2005 00:00.1
1234 10/16/2005 00:00.1
1234 10/16/2005 00:00.1
1234 10/16/2005 00:00.1
1234 10/16/2005 00:00.1
1234 10/16/2005 00:00.1
1234 10/16/2005 00:00.1
1234 10/16/2005 00:00.1
1234 10/16/2005 00:00.1
1234 10/16/2005 00:00.1
1234 10/16/2005 00:00.1
1234 10/16/2005 00:00.1
1234 10/16/2005 00:00.1
1234 10/16/2005 00:00.1
1234 10/16/2005 00:00.1
1234 10/16/2005 00:00.1
1234 10/16/2005 00:00.1
1234 10/16/2005 00:00.1

I would like a macro to replace the interval with 1 thru 24, the hours
will loop from 1:24 until it finds an empty cell then it will stop.

I found this code on the group but for some reason, it will run 1 thru
24 then after the 24th line it will continue to add just 24,,
Sub testme2()


Dim iCtr As Integer
Dim myFirstcell As Range


Set myFirstcell = Range("B1:B100")


For iCtr = 1 To 24 Step 1
myFirstcell.Offset(iCtr - 1, 0).Value = iCtr
Next iCtr

End Sub

Any Help is greatly appreciated..

Thanks,
salooha