vba not respond at all, no errors

[montecarlo2012]

Hello everyone
Working on this code

Sub ppp()
N = 13
      For i = N To -N
      
               For j = N To Abs(i) Step -j
               
               Cells(i, j) = "X"
               
               Next j
      Next i

End Sub

Do not show me nothing plus do not show errors either.
I am trying to get:

Please
Your input matters to me
Thanks for reading this.

 

[hajiali]

Try this

Sub ppp()
n = 13
s = 1
For j = 1 To 8 Step 1
      For i = n To s Step -1
               Cells(i, j) = "X"
               
               Next i
               n = n - 1
               s = s + 1
      Next j

End Sub

 

[Marc L]

Sub DemoC()
        N% = 7
    For C% = 1 To N
    For R% = C To N * 2 - C
        Cells(R, C).Value2 = "X"
    Next R, C
End Sub

 

[Marc L]

Sub DemoR()
        N% = 7
    For R% = 1 To (N * 2) - 1
    For C% = 1 To R + 2 * (R Mod 7) * (R > N)
        Cells(R, C).Value2 = "X"
    Next C, R
End Sub

 

[montecarlo2012]

Hajiali thank you.

 

[montecarlo2012]

Marc L thank you.

 

[hajiali]

your welcome. Glad I could Help. Thanks for the feedback,

 

[Marc L]

Sub DemoW()
          N% = 13
    While N > 0
        C% = C% + 1
        For R% = C To C + N - 1:  Cells(R, C).Value2 = "X":  Next
        N = N - 2
    Wend
End Sub

 

[Marc L]

Last but not least :​

Sub DemoC2()
        N% = 13
    For C% = 1 To N \ 2 + 1
    For R% = C To N - C + 1
        Cells(R, C).Value2 = "X"
    Next R, C
End Sub