Repeat Transpose - Repeat amount of Rows.

Option Explicit
Sub Macro3()    
    Dim lngMyRow As Long
    Dim lngLastRow As Long
    Dim lngPasteRow As Long
    Dim wsSource As Worksheet
    Dim wsOutput As Worksheet
    
    Set wsSource = Sheets("Sheet1") 'Source data tab. Change to suit if necessary.
    Set wsOutput = Sheets("Sheet2") 'Output data tab. Change to suit if necessary.
    lngLastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    Application.ScreenUpdating = False
    
    For lngMyRow = 1 To lngLastRow Step 32
        wsSource.Range("A" & lngMyRow & ":A" & lngMyRow + 31).Copy
        lngPasteRow = wsOutput.Cells(wsOutput.Rows.Count, "A").End(xlUp).Row + 1
        wsOutput.Range("A" & lngPasteRow).PasteSpecial Transpose:=True
    Next lngMyRow
    
    Application.ScreenUpdating = True
    
    MsgBox "Data has been transposed from """ & wsSource.Name & """ to """ & wsOutput.Name & """.", vbInformation
    
    Set wsSource = Nothing
    Set wsOutput = Nothing


End Sub

Private Sub CommandButton1_Click()
    Dim xx, x, i As Long, ii As Long, cnt As Long
    
    ' Put all values in column into a 2D array
    x = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row): cnt = 1
    
    ' Resize a new array to hold the required output
    ReDim xx(1 To UBound(x) / 32, 1 To 32)
    
    ' Loop through your original 2d Array and build the new array
    For i = 1 To UBound(xx, 1)
        For ii = 1 To UBound(xx, 2)
            xx(i, ii) = x(cnt, 1)
            cnt = cnt + 1
        Next ii
    Next i
    
    ' Output to sheet
    Sheets("Sheet2").[A2].Resize(UBound(xx, 1), UBound(xx, 2)).Value = xx
End Sub

Sub test()    
Dim x, i As Long, n As Long
    Application.ScreenUpdating = False
    With Sheets("sheet1")
        x = Filter(.[transpose(if((a1:a1000="$WebFlags")+(a1:a1000="$Revisions"),row(1:1000),char(2)))], Chr(2), 0)
        If UBound(x) > 0 Then
             For i = 0 To UBound(x) Step 2
                n = n + 1 + IIf(i = 2, 1, 0)
                .Range(.Cells(x(i), 2), .Cells(x(i + 1), IIf(i = 0, 1, 2))).Copy
                Sheets("sheet2").Cells(n, 1).PasteSpecial Transpose:=True
            Next
        End If
    End With
    Application.ScreenUpdating = True
End Sub

Sub test()
    Dim a, i As Long, ii As Long, n As Long, w() As Object, flg As Boolean, dic As Object
    Set dic = CreateObject("Scripting.Dictionary")
    dic.CompareMode = 1
    With Sheets("sheet1")
        a = .Range("a1", .Range("a" & Rows.Count).End(xlUp)).Resize(, 2).Value
        For i = 1 To UBound(a, 1)
            If a(i, 1) = "$WebFlags" Then
                n = n + 1: ReDim Preserve w(1 To n)
                Set w(n) = CreateObject("Scripting.Dictionary")
                w(n).CompareMode = 1: flg = True
            End If
            If flg Then
                If a(i, 1) <> "" Then
                    If Not dic.exists(a(i, 1)) Then dic(a(i, 1)) = Empty
                    w(n)(a(i, 1)) = a(i, 2)
                Else
                    flg = False
                End If
            End If
        Next
        ReDim a(1 To n + 1, 1 To dic.Count)
        For i = 0 To dic.Count - 1
            a(1, i + 1) = dic.keys()(i)
        Next
        For i = 1 To n
            For ii = 1 To UBound(a, 2)
                If w(i).exists(a(1, ii)) Then a(i + 1, ii) = w(i)(a(1, ii))
            Next
        Next
    End With
    Sheets("sheet2").Cells(1).Resize(UBound(a, 1), UBound(a, 2)).Value = a
    Sheets("sheet2").Select
End Sub