Get a code to run faster

Hello everybody
I have this code that do auto numbering
The problem is that the code is very slow because of loop ..Is there a way to do the same task quickly?

Sub AutoNumer()
    Dim I As Long
    Dim Cell As Range, Rng As Range
    
    Set Rng = Range("A1:A100000")
    Rng.ClearContents
    
    I = 1
    For Each Cell In Rng
        Cell.Value = I
        I = I + 1
    Next Cell
End Sub