Random group allocation

Hello Natasha,

Thank you for your question. The code below worked for me. Please make sure your first student is in cell B1. The macro assigns a random number to each student, then sorts ascending on the numbers. Afterwards it inserts a blank row after each 6th student. I assume you have 312 students, so simply change the A18 references in my code to A312.

Sub Macro1()

Dim LastRow As Long
Dim i As Long

Range("a1") = "=INT(RAND()*100)"
Selection.AutoFill Destination:=Range("A1:A18")
Range("A1:A18").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("A1").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:B18")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

With ActiveSheet

LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = LastRow - LastRow Mod 6 To 6 Step -6

.Rows(i + 1).Insert
Next i
End With

End Sub

I hope this helps.

Kind regards
Marius Barnard
STL