Generate all formations in sequences = triple and quadruple doubles from 01 to 31

Code for macro

Sub Macro1()
Application.ScreenUpdating = False
Dim TA As Long, AB As Long, AC As Long, X As Long, Y As Long, Z As Long

X = 31
For TA = 1 To X
Y = 0
Z = TA - 1
    For TB = TA + 1 To X
        
        For TC = TA To TB
        Range("A2").Offset(Z, Y) = TC
        Y = Y + 1
        Next TC
        
    Next TB
Next TA

Range("A2").CurrentRegion.Resize(X).SpecialCells(xlCellTypeBlanks).Value = X

Range("A2").CurrentRegion.NumberFormat = "00"
Application.ScreenUpdating = True

End Sub