セル範囲にデータを埋め込む

Sub SampleStatement()
Range(“B2”).AutoFill Destination:=Range(“B2:B8”), _
Type:=xlFillSeries
End Sub