I am trying to place line numbering down one column of my
data. I have tried cheating and using autofill, but when
I enter a variable it doens't seem to work. Here is what
I have got right now;

For h = 15 To Cells(Rows.Count, "B").End(xlUp).Row
If Range("B" & h).Value < "" Then
Range("A15:A16").Select
Selection.AutoFill Destination:=Range("A15"
& ":A" & h), Type:=xlFillDefault
End If
Next h

The autofill is cheating and I would like to know if
their is a better way of doing it.

Thanks in advance,
Greg