Generate random sequence of numbers in excel

Hi everyone !

Can someody help me generate a sequence of numbers like
0
1
2 2
3 3 3
4 4 4 4
till 200

in excel with the help of a macro ??
My code is like this :

Sub Generate_Numbers()

 Dim CountRow As Long
 Dim cLastRow As Long
 Dim i As Double

 For CountRow = 1 To 201
 Worksheets("random numbers").Cells(CountRow, 1).Value = i
 i = i + 1
 Next CountRow

End Sub

Thank you !