Randomly select 4 groups using 8 teams

I have 151 people that I need to assign to 5 different groups and then place them in 8 different teams.

Session 1 is Baseball and has 8 teams
Session 2 is Basketball and has the same people in 8 teams not in the same teams as Baseball
Session 3 is Soccer and has the same people in 8 teams not in the same teams as Baseball or Basketball
Session 4 is Football and has the same people in 8 teams not in the same teams as Baseball or Basketball or Soccer
Session 5 is Skating and has the same people in 8 teams not in the same teams as Baseball or Basketball or Soccer or Football

Is there a way to randomly assign the groups and teams in Excel?

this is a way. the macro generates 5 random lists (1-151).

Sub rand()
Dim l(200, 10)
For r = 1 To 10
For c = 1 To 200
l(c, r) = 0
Next c
Next r


For c = 2 To 6
Randomize
  For p = 1 To 151
    Do
      j = Round((151) * Rnd + 1, 0)
      
    Loop Until l(j, c) = 0
    l(j, c) = 1
    Cells(p, c) = j
  Next p
Next c


End Sub

This macro will generate 8 lists in 5 worksheets 7 of 19 and 1 of 18 members

Sub rand()
Dim l(200, 10), rw(10), cl(10)

rw(1) = 2
rw(2) = 2
rw(3) = 2
rw(4) = 2

rw(5) = 25
rw(6) = 25
rw(7) = 25
rw(8) = 25

cl(1) = 1
cl(2) = 4
cl(3) = 8
cl(4) = 12

cl(5) = 1
cl(6) = 4
cl(7) = 8
cl(8) = 12

For r = 1 To 10
For c = 1 To 200
l(c, r) = 0
Next c
Next r


For c = 1 To 5
Randomize
t = 1
cx = 0
  For p = 1 To 151
    Do
      j = Round((151) * Rnd + 1, 0)
      
    Loop Until l(j, c) = 0
    l(j, c) = 1
    If cx > 18 Then
    t = t + 1
    cx = 0
    End If
    
    Sheets("Hoja" & c + 1).Cells(rw(t) + cx, cl(t)) = j
  cx = cx + 1
  Next p
Next c


End Sub

best result-8 repeats
recalculate F9

This made 4 groups, but I need 8 teams within each group.

it's very complicated to devide each column in 8 teams: 1-19, 20-38 and soon.