Item Sequencing Based on Selection (Sequence or Random Pick)

Dear All,

I would like to know is there a way to arrange a specific list of item or in this case instruction based on user selection (either random pick from the list without caring much about the sequence or sequential pick).

I have prepared an example to explain my problem in detail. (Please refer to the spreadsheet)

With a small Userform

Private Sub ComboBox1_Click()
ListBox1.AddItem (ComboBox1)
End Sub
Private Sub CommandButton1_Click()
Dim lr As Long, mycol As Long
Sheets("sheet2").Cells.ClearContents
For x = 0 To ListBox1.ListCount - 1
    With Sheets("sheet1")
        mycol = Application.Match(Me.ListBox1.List(x), .Range("A2", "Z2"), 0)
        lr = Sheets("sheet2").Range("B" & Rows.Count).End(xlUp).Row
        .Cells(2, mycol).Copy Sheets("sheet2").Range("A" & lr + 1)
        .Range(.Cells(3, mycol), .Cells(13, mycol)).Copy Sheets("sheet2").Range("B" & lr + 1)
    End With
Next
Unload Me
Application.Goto reference:=Sheets("sheet2").Range("A1"), Scroll:=True
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = Array("1st Destination", "2nd Destination", "3rd Destination", "4th Destination", "5th Destination", "6th Destination")
End Sub

Kind regards
Leo