Excel VBA code. How to write diagonally in a table?

Question

Visual Basic

I'm new to VBA, and right now I don't know how to make Cells fill with numbers from 1 to 10 diagonally,
as in the image; if possible, with code.

Answer 1

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

If you need on a specific sheet, then you still need
Worksheets("Лист1").Cells(i, i).Value = i