Randomly select from long list

To a new sheet in the same workbook:

Private Sub CommandButton1_Click()
    
    Randomize
    Sheets("Sheet2").Calculate
    Intersect(Sheets("Sheet2").UsedRange, Sheets("Sheet2").Columns("A:B")).Sort Sheets("Sheet2").Range("B1"), xlAscending, , , , , , xlNo
    Sheets.Add(After:=Sheets(Sheets.Count)).Range("A1:A60").Value = Sheets("Sheet2").Range("A1:A60").Value
    
End Sub

To a new workbook:

Private Sub CommandButton1_Click()
    
    Randomize
    Sheets("Sheet2").Calculate
    Intersect(Sheets("Sheet2").UsedRange, Sheets("Sheet2").Columns("A:B")).Sort Sheets("Sheet2").Range("B1"), xlAscending, , , , , , xlNo
    With Sheets.Add(After:=Sheets(Sheets.Count))
        .Range("A1:A60").Value = Sheets("Sheet2").Range("A1:A60").Value
        .Move
    End With
    
End Sub