Погомогите написать программу!!!!

[lalalalala]

помогите написать программу в VB Excel,дано задание: Заполнить n- строк (n<50) столбца А случайными числами из диапазона [1..100] в порядке их возрастания.

[DiemonStar]

Sub FillValues()
  Randomize
  Set R = Range("A1:A50")
  For Each C In R.Cells
    C.Cells(1, 1) = Int(Rnd * 100 + 1)
  Next C
  R.Sort Key1:=R.Cells(1, 1)
End Sub