vba, flip it over the pattern

[montecarlo2012]

Hello people
with this code,

Sub rur()
      For i = 1 To 5
            For j = 1 To 5
                  Cells(i, j) = i
            Next
      Next
End Sub

I got this

how can I get

Thank for reading.
Please, some help in this.

 

[Rick Rothstein]

Another way using a formula (copy across)

=INDEX(A$1:A$5,COUNTA(A1:A$5))

IAssuming the output will go into cells A1:E5, here is another formula that will work. Place this formula in cell A1 and copy across to cell E1, then copy A1:E1 down to Row 5...

=6-ROW()

 

[montecarlo2012]

Thank you Mr. Rick.

I'm guessing your goal is to understand looping, but if your goal is simply to produce the output you showed no matter the method, then you could consider this...

Sub MonteCarlo2012()
  [A1:E5] = [{5;4;3;2;1}]
End Sub

My goal is to understand the logic before typing any for loop, all the process behind the loops, no just copy and write for = 1 to something etc etc, reason why I am not using any formula, " or " the very popular statement "with_____end with", I really appreciate your input.