Take formatted results and sort and place sorted list on new sheet.

[edscollects]

I have this sheet that I am currently working on. What I am looking to accomplish is each row from column er to the furthest to the right is a timeline for the school in column A. On a separate sheet I want to take to take each unique listing from the columns er to the right and combine them together with the name in column A. This is what I am trying to accomplish visually. This would be a listing compiled for each unique cell. Thank you in advance.
01ACC
Clemson 1960-2023
Duke 1960-2023
Georgia Tech 1960-2014



NCAA 2-11-23.xlsm

 

[Sparcot]

Hello. Add this code to Module1 and run.

Sub Combine()
    Dim lastRow, lastColumn As Long
    Dim i As Integer
    Application.ScreenUpdating = False
    Worksheets("Sheet1").Activate
    lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
    For i = 2 To lastRow
        lastColumn = ActiveSheet.Cells(i, ActiveSheet.Columns.Count).End(xlToLeft).Column
        ActiveSheet.Cells(i, 16384).Value = ActiveSheet.Cells(i, 1).Value & " " & ActiveSheet.Cells(i, lastColumn).Value
    Next i
    ActiveSheet.Range(Cells(2, 16384), Cells(lastRow, 16384)).Select
    Selection.Cut
    Sheets.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Columns(1).AutoFit
    ActiveSheet.Cells(1, 1).Select
    Application.ScreenUpdating = True
End Sub

 

[edscollects]

The only thing that occurs is a new blank sheet appears and no output.

 

[Sparcot]

The only thing that occurs is a new blank sheet appears and no output.

Try replacing "16384" with "10000" and run again.

 

[edscollects]

When running after changing to 10000 it shows up like this:
Georgia Tech 1960-64
Maryland 1960-2014
instead of
01ACC
Georgia Tech 1980-2023
Maryland 1960-2014
It looks like it is only showing the entry furthest to the right.