Una macro que me divida una cantidad de celdas de forma aletoria entre 8 personas con igual cantidad de celdas para cada una

Ocupa crear una macro que me cuente cuantas celdas están activas (osea con data), acomode la data de forma aletoria, después me divida la cantidad entre 8 personas en cantidades iguales y que después lo envíe por correo a una correo en espeficico.