Excel VisualBasic Script

Sub main()
     [B1:B100] = [ROW(101:200)]
End Sub