Vba excel - autofill

[ajliaks]

Hi all,

I need to fill some cells with integer numbers starting from 1:
For example, I need to fill from Cell B15 to B25 with the number
1...to 10

I am trying this:
Range("B15:B25").Select
Selection.AutoFill Destination:=Range("B15:B25")
Type:=xlFillDefault
Can anybody help, please?
Thanks,
Aldo

 

[Tom Ogilvy]

Sub FillRange()
Range("B15").Value = 1
Range("B16").Value = 2
Range("B15:B16").AutoFill Destination:= _
Range("B15:B25"), Type:=xlFillDefault
End Sub

fills from 1 . . . to 11 (you have 11 cells).

this also works:

Sub FillRange1()
Range("B15").Value = 1
Range("B15:B25").DataSeries _
Rowcol:=xlColumns, _
Type:=xlLinear, _
Date:=xlDay, _
Step:=1, _
Stop:=11, _
Trend:=False
End Sub