Hi all!
I have the following code which MickG has helped me with on this forum.
Dim Rng As Range, Dn As Range, p As Variant, c As Long, Ac As IntegerWith Sheets("Candidates")
Set Rng = .Range(.Range("I1"), .Range("I" & Rows.Count).End(xlUp))
End With
ReDim ray(1 To Rng.Count, 1 To 5)...