[Solved] Need Someone That Can Read This VBA Script! Fairly Simple [closed]


Public Sub MakeColumnsFromRows()
    Dim totalCutsToMake As Integer
    Dim currentColumn As Integer
    Dim currentCut As Integer
    Dim rowsToCut As Integer

    Sheets(4).Activate
    rowsToSkip = 10
    totalCutsToMake = (ActiveSheet.UsedRange.Rows.Count / rowsToSkip)
    currentColumn = 1

    Dim RowCount As Integer
    For currentCut = 1 To totalCutsToMake
        RowCount = Cells(Rows.Count, currentColumn).End(xlUp).Row
        Range(Cells(rowsToSkip + 1, currentColumn), Cells(RowCount, currentColumn + 2)).Select
        Selection.Cut
        Cells(1, currentColumn + 3).Select
        ActiveSheet.Paste
        currentColumn = currentColumn + 3
    Next
End Sub

2

solved Need Someone That Can Read This VBA Script! Fairly Simple [closed]