Convert Single Pair of Columns to 3 Column (Pair) List

Sub ThreeColumns()
    
    Dim lngR As Long
    Dim lngC As Long
    
    With Sheet1
        lngR = .Cells(.Rows.Count, "A").End(xlUp).Row - 1
        lngC = .Cells(1, .Columns.Count).End(xlToLeft).Column
        'Copy headers
        .Range("A1").Resize(1, lngC).Copy .Range("A1").Offset(0, lngC)
        .Range("A1").Resize(1, lngC).Copy .Range("A1").Offset(0, 2 * lngC)
        'Move data
        .Range("A1").Offset(1 + 2 * (lngR \ 3) + lngR Mod 3, 0).Resize(lngR \ 3, lngC).Cut .Range("A1").Offset(1, 2 * lngC)
        .Range("A1").Offset(1 + lngR \ 3 + IIf(lngR Mod 3 >= 1, 1, 0), 0).Resize(lngR \ 3 + IIf(lngR Mod 3 >= 1, 1, 0), lngC).Cut .Range("A1").Offset(1, lngC)
    End With
End Sub