Huobi.pro transpose rows 3

Sub TransposeRows3()
    Dim i&, z&, x&
    i = Cells(Rows.Count, "A").End(xlUp).Row
    z = 1
    x = 2  ' Leave room for a header row
    While z <= i
        Range("B" & x).Resize(, 8) = WorksheetFunction.Transpose(Range("A" & z).Resize(8))
        z = z + 8
        x = x + 1
    Wend
End Sub