MyNums = Array(350, 540, 750, 1500, 1200, 2000, _
630, 450, 1800, 970)
ArraySize = UBound(MyNums) + 1

For RowCount = 2 To 7303
RanNum = Int(ArraySize * Rnd())
Range("D" & RowCount) = MyNums(RanNum)
Next RowCount

"SANTANDER" wrote:

excel spreadsheet, 5 columns, fourth column (D) contains no data.
I want fill column D with pseudo-random values: 350, 540, 750, 1500, 1200,
2000, 630, 450, 1800, 970 need be filled in cells in random order.
( entered in rows from 2 - 7303, not needs for all column)

Thanks,
santander