VBA set multiple variable from cell value

I want to do that; i1=A2.value i2=A3.value i3=A4.value ..... but ı dont know how to start it.

Public Sub SetVariable()
Dim cell As Range
Dim rng As Range
Dim i As Integer

Set rng = Range("B2", Range("B1").End(xlDown))

For Each cell In rng
    For i = 1 To rng
        i = Range("A" & cell.Row)
    Next i
Next cell
End Sub