چاپ تکست X در سل های A5,B4,C3,D2,E1

Sub x()
Dim i As Long
For i = 1 To 5 Cells(6 - i, i).Value = "x"
Next i
End Sub

۶-۱,۱ ' ردیف ۵ و ستون ۱

۶-۲,۲

۶-۳,۳