Here is one approach:
Sub Tester2()
Dim rng As Range
Set rng = Cells(Rows.Count, "B").End(xlUp)
Range("A15").Value = 1
Range("A15").AutoFill Destination:= _
Range(Range("A15"), rng.Offset(0, -1)), _
Type:=xlFillSeries
End Sub

if you are trying to number just in cells where column B has values.

Sub Tester3()
Dim rng As Range
Dim i As Long, cell As Range
Set rng = Cells(Rows.Count, "B").End(xlUp)
Set rng = Range(Range("B15"), rng)
i = 1
For Each cell In rng
If cell < "" Then
cell.Offset(0, -1).Value = i
i = i + 1
End If
Next
End Sub

--
Regards,
Tom Ogilvy

"Greg" wrote in message
...
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