Hi Team, 

I am practising loop , I got the answer 
But I am looking for is there any other way to bring the same answer.
with Do loop/array . Thanks in advance !!:hi:

Sub LoopPractise()

Dim i As Long, r As Long, c As Long
    r = 1: c = 1

For i = 1 To 10
    If i <= 5 Then
    Cells(r, c).Value = "*"
    r = r + 1
   
Else
        c = c - 2
    Cells(r, c).Value = "*"
    r = r + 1
End If
    c = c + 1

Next I

End Sub