Seriously, separate from the VBA as you don't want VBA, use a filter. Put a column next to your range and fill it with =Rand()
Drag it down. Then copy and paste special - values over top if itself.
Now just sort it ascending or descending and pick either the first 30 or last 30 as your selection.
It's about 99.999% effective unless you have millions in your list.