Generate lists of 1×1, 2×2, 3×3 etc. in VBA (excel 2003)

Posted on by 
n = Cells(1, 1)
t = 1
 For n = 1 To 200
    For i = 1 To n
     Cells(t, 2) = n
     t = t + 1
    Next i
 Next n