VBA 2013 Random Text to different Sheet transfer on click

Good day to all,
Been awhile since I’ve played around VBA and seem that when you’re out and about doing other things, well…
Ok so just wondering if someone would know about how to do this.

In my tab (Sheet “random”) I have a column (A) going to 100, with different text in them.
I need to create a vba function that with randomly grab those 100 text from this column and add them to my tab Sheet (“Text”), same column. But they need to be randomised every time I click on the command button.

Help would be much appreciated.

So an example:

Sheet(“Random”) Column A1 to A100, randomly copy and paste to Sheet(“Text”) Column A. No titles so A1 (On CommandButton1_Click)

Excelnoub

The easiest way would be to:
Copy whole range.
fill next column with =rand() formula
sort both columns on column B
delete contents of column B.
If there is something before in column B then start with inserting empty column and delete it at the end

So the code for the button could be something like:

Please Login or Register  to view this content.

Holy … Yup exactly what I needed, thank you so much Kaper

Glad to hear so and thanks for reputation point and for marking thread solved