Copy Paste Rearrange Columns

Option Base 1
Dim NewCols(), xc

Sub CopyMgr()
ReDim NewCols(9)
xc = 0
Check.Show
End Sub

Sub AutoArrange(CFrm, Cto)
Rg = CFrm & ":" & CFrm
Ad = Cto & 1

With ThisWorkbook.Sheets("Triple List")
.Activate
.Columns(Rg).Select
Selection.Copy
Sheets("Sheet2").Select
Range(Ad).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End With
End Sub
Sub StoreRefs()
CR = ActiveCell.Address
KK = Mid(CR, 2, 1)
Check.CellRef.Text = KK
xc = xc + 1
NewCols(xc) = KK
End Sub
Sub CopyThis()
Check.Hide
For idx = 1 To xc
TCol = Chr(64 + idx)
AutoArrange NewCols(idx), TCol
Next idx
End Sub