オートフィル

■同じ値でオートフィル（関数のオーフィルなどもこの方法でOK）

*************************************************************************

(例)セルB1に1を入力し、B10まで1をオートフィルで入力

Sub test1()

　Range("B1").Value = 1
　Range("B1").AutoFill Destination:=Range("B1:B10")

End Sub

*************************************************************************

■連続データでオートフィル 

***********************************************************************************

(例)セルB1に1を入力し、B10まで連続データをオートフィルで入力

Sub test2()

   Range("B1").Value = 1
   Range("B1").AutoFill Destination:=Range("B1:B10"), Type:=xlFillSeries

End Sub 

***********************************************************************************