Code to autofill to the last line

[AgentMeow99]

I wish I was good at code, but sadly I am not. I am sure this one is SUPER EASY for you guys... I want to enter 1 into cell A15, 2 in cell A16, select a15 & a16 then autofill the subsequent numbers 1...whatever through to the last line that has data in column b. This is the last few lines where that code is. Can someone help me fix it, please???

Range("A15").Select
ActiveCell.FormulaR1C1 = "1"
Range("A16").Select
ActiveCell.FormulaR1C1 = "2"
Range("A15:A16").Select
Selection.AutoFill Destination:=Range("A15:A34")
Range("A15:A34").Select

THANK YOU!!!

 

[Norie]

Try this.

    Range("A15").Value = 1
    Range("A15:A" & Range("B" & Rows.Count).End(xlUp).Row).DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _
        xlDay, Step:=1, Trend:=False

 

[AgentMeow99]

THANK YOU SO MUCH!!!!!!!! That worked