Excel VBA код. Как писать по диагонали в таблице?

Question

[Diana Stoyka]

Я новичок в VBA, и сейчас не знаю как сделать чтобы Cells заполнить числами от 1 до 10 по диагонали,
как на изображении; если можно, то с кодом.

Answer 1

[Григорий Боев]

Sub FillRange()
    Dim i As Integer
    
    For i = 1 To 10
        Cells(i, i).Value = i
    Next i
End Sub

Если надо на конкретном листе, то ещё надо
Worksheets("Лист1").Cells(i, i).Value = i