Locate blank cells, insert dynamic value

Hi guys,

Trying to write a macro to achieve the following:

1. Scan column C until empty cell is located
2. Insert value 14
3. if next cell is empty, insert value 13. if next is empty, insert value 12 etc
4. if next cell NOT empty, then start process again

was trying to use some dynamic number like:
range.("C2").select
dim j%
if isempty(activecell) then activecell.value=(15-j)
j=j+1
activecell.offset(0,1)

with some looping but can't quite get it right

any suggestions?

thanks!

sampledata.xls

got it! this may not be the most elegant but for reference:

Sub horseno()
Dim j%
Application.ScreenUpdating = False
Range("C2").Select
j = 1
Do
If Not IsEmpty(ActiveCell) Then
ActiveCell.Offset(1, 0).Select
j = 1
Else
ActiveCell.Value = (15 - j)
j = j + 1
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(Cells(ActiveCell.Row, 1))
End Sub