Randomly Pair Up Players

I am trying to make code to randomly pair up players. I have found code which makes a button that randomly pairs up players in a list but I want to make it so that ? players are paired with ? other players instead of everyone at the same time so that a person dosn't get paired with more then one player at a time.

E.g. take the first 6 players in a last and pair them with the second 6.

This is the code I found:

Private Sub CommandButton1_Click()
Dim x As Range, RanRng As Range, z As Range, oRes, Ray
Dim i As Integer, j As Integer, real, oSt As Integer, cl As Range
Dim oCol As Integer
Set RanRng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))

[Code] ........