Sub Demo1()
Randomize
VA = [A2].CurrentRegion.Value
Application.ScreenUpdating = False
[C2].CurrentRegion.Clear
With [C2].Resize(3, UBound(VA) \ 3 - (UBound(VA) Mod 3 > 0))
For N% = UBound(VA) To 2 Step -1
P% = Fix(Rnd * (N - 1)) + 1
.Cells(N).Value = VA(P, 1)
VA(P, 1) = VA(N, 1)
Next
.Cells(N).Value = VA(P, 1)
.Columns.AutoFit
End With
Application.ScreenUpdating = True
End Sub