Witam
Jakie będzie wynik następującej procedury:

Sub makro ()
Dim SKOK As Integer
Dim Los As Single
Const Liczba = 100
Randomize
Los = RND ()
For Skok = 2 to 5
Worksheets (Arkusz1”).
Cells(2,1). Offset (0,skok)-

Los*liczba
Next
End Sub