Data Sorting With Correction

Sub startrd3_click()
Range("B5:AY64").Select
Selection.Sort Key1:=Range("B5"), Order1:=xlDescending, Key2:=Range("C5") _
, Order2:=xlDescending, Key3:=Range("E5"), Order3:=xlDescending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
' ERROR CHECKING HAPPENS HERE TO MAKE SURE PEOPLE HAVE NOT PLAYED EACH OTHER BEFORE
Columns("J:W").Select
Selection.EntireColumn.Hidden = True
Range("I4").Select
End Sub

If any of you gamers out there are familiar with the Swiss Pairing System, the goal of this sheet is to perform the pairing functions based on results. The goal of swiss pairing is to partner folks up based on win loss records, however, the players can never play each othe more than once. What i am wondering is how to create the vb code required to make sure the pairings are unique while keeping the rules of swiss pairing together.

Here's how it works:.............