T4524_Convert One Column To Table Using Step In Loops

https://excel-egy.com/forum/t4524
---------------------------------

Sub Convert_One_Column_To_Table_Using_Step_In_Loops()
    Dim a, r As Long, i As Long

    Application.ScreenUpdating = False
        r = 5

        For i = 4 To Cells(Rows.Count, "C").End(xlUp).Row Step 8
            a = Range("C" & i).Resize(7).Value
            Cells(r, "O").Resize(, UBound(a)).Value = Application.Transpose(a)
            r = r + 1
        Next i
    Application.ScreenUpdating = True

    MsgBox "Done...", 64
End Sub