rassal sayı nasıl uretebılırım

[semira_]

bu kodum calışmıyor hata veriyor , 0.2 ile 0.7 arasında rassal sayı üretip bunu dönemlik taleple çarpmak istiyorum nasıl yapabilirim ?

kod aşagıda:

Sub deneme()

Worksheets("sayfa1").Select
Range("A1").Select

Dim donemliktalep(5) As Variant
Dim numcustomer As Integer

Range("A1:G100").Clear


ActiveCell.Offset(2, 0).Select

For i = 1 To 5

donemliktalep(i) = donemliktalep(i) + Int(Rnd * 11) + 20
If i + 1 <= 5 Then donemliktalep(i + 1) = donemliktalep(i + 1) + Int(Rnd * 11) + 15
If i + 2 <= 5 Then donemliktalep(i + 2) = donemliktalep(i + 2) + Int(Rnd * 11) + 10
If i + 3 <= 5 Then donemliktalep(i + 3) = donemliktalep(i + 3) + Int(Rnd * 11) + 5

ActiveCell.Offset(i, 0) = donemliktalep(i)

Next i




'Sıfır Parça Talebi


ActiveCell.Offset(6, 0).Select

ActiveCell.Value = "New_Part_Demands"
For i = 1 To 5

For j = 1 To 5

ActiveCell.Offset(i, j - 1) = donemliktalep(i) * Rnd * 0.5 + 0.2



Next
Next


End Sub