Attribute VB_Name = "testcellrange4"
Sub ƒeƒXƒg()

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