Excel VisualBasic Script

Sub autoFillRange()
    Cells(2, "B").autoFill Destination:=Range("B2:B10")
End Sub