For循环VBA必需的宏嵌套循环

Question

我需要一个如下所述的两个宏

如果我在Excel A1中输入值3，而A2为2，而A3为1 就像明智的B2是2而b3是1 C1为1

3
22
111

321
21
1

sub test()

Dim i as integer
Dim j as integer

i=inputbox ("Enter the number here")
Range("A1").value=i

for j= 1 to i


End sub