VBA Code - Add Shuffle Capability on it

[lanc3lot]

Hello everyone,

I have this code

[COLOR=#000000][FONT=&quot]Sub CopyData()[/FONT][/COLOR]
[COLOR=#000000][FONT=&quot]Dim Rng As Range[/FONT][/COLOR]
[COLOR=#000000][FONT=&quot]Dim InputRng As Range, OutRng As Range[/FONT][/COLOR]
[COLOR=#000000][FONT=&quot]xTitleId = "Lottery"[/FONT][/COLOR]
[COLOR=#000000][FONT=&quot]Set InputRng = Application.Selection[/FONT][/COLOR]
[COLOR=#000000][FONT=&quot]Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)[/FONT][/COLOR]
[COLOR=#000000][FONT=&quot]Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)[/FONT][/COLOR]
[COLOR=#000000][FONT=&quot]Set OutRng = OutRng.Range("A1")[/FONT][/COLOR]
[COLOR=#000000][FONT=&quot]For Each Rng In InputRng.Rows[/FONT][/COLOR]
[COLOR=#000000][FONT=&quot]    xValue = Rng.Range("A1").Value[/FONT][/COLOR]
[COLOR=#000000][FONT=&quot]    xNum = Rng.Range("B1").Value[/FONT][/COLOR]
[COLOR=#000000][FONT=&quot]    OutRng.Resize(xNum, 1).Value = xValue[/FONT][/COLOR]
[COLOR=#000000][FONT=&quot]    Set OutRng = OutRng.Offset(xNum, 0)[/FONT][/COLOR]
[COLOR=#000000][FONT=&quot]Next[/FONT][/COLOR]
[COLOR=#000000][FONT=&quot]End Sub[/FONT][/COLOR]

Is there a way, i can add on the code, shuffle capabilities? So when i run it, the end result will be shuffled it's values? Ty in advance