Shuffle data only of the 3 columns

Using Excel 2010
Hello,

I need VBA to Random shuffle only 3 columns for example column D, column E, Column F as long as data find in the columns…in this example length of each column is the same but can be the different.

I have attached workbook with few rows example, but in real max rows can be 65000

Please help.

Regards,
Moti