Excel Macros for Huobi Copy/Paste Formatting

Sub TransposeTransactionHistroy()
    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

Sub TransposeDepositHistory()
    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(, 5) = WorksheetFunction.Transpose(Range("A" & z).Resize(5))
        z = z + 8
        x = x + 1
    Wend
End Sub

Sub TransposeWithdrawalHistory()
    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(, 5) = WorksheetFunction.Transpose(Range("A" & z).Resize(5))
        z = z + 9
        x = x + 1
    Wend
End Sub