Заполнение массива из ячеек циклом с шагом

Sub massiv()
Dim arr As Variant
Dim i As Integer
For i = 1 To 20 Step 4
 
arr = Sheets("Лист1").Cells(i, 1).Value
'Не работает. Т.e. в итоге должен появится массив в котом 5 значений, но присваивает значение только значение последней ячейки.
 
Sheets("Лист1").Cells(i, 3) = Sheets("Лист1").Cells(i, 1)
'Работает. Значение ячеек переносится с нужным шагом.
 
Next i
End Sub

Sub massiv()
    Dim arr()       As Variant
    Dim i           As Integer
    n = 0
    For i = 5 To Cells(Rows.Count, 3).End(xlUp).Row Step 6
        ReDim Preserve arr(n)
        arr(n) = Cells(i, 3).Value
        n = n + 1
    Next i
End Sub

For i = 5 To Cells(Rows.Count, 3).End(xlUp).Row Step 6
        ReDim Preserve arr(n)

For i = 5 To Cells(Rows.Count, 3).End(xlUp).Row Step 6 ' цикл с 5 строки по последнюю заполненную с шагом 5
        ReDim Preserve arr(n) ' переобъявляем массив на лету без удаления имеющихся данных в массиве

Sub massiv()
    Dim arr()       As Variant
    Dim i           As Integer
    n = 0
    For i = 5 To Cells(Rows.Count, 3).End(xlUp).Row Step 6
        ReDim Preserve arr(1, n)
        arr(0, n) = Cells(i, 3).Value
        arr(1, n) = Cells(i, 4).Value
        n = n + 1
    Next i
End Sub

Dim arr(5)       As Variant ' тут задана размерность одномерного массива 6 элементов, отсчет начинается с нуля

Dim arr(5, 5)       As Variant ' тут задана размерность двумерного массива 6х6 элементов, отсчет начинается с нуля