Sério, separe do VBA porque você não quer o VBA, use um filtro. Coloque uma coluna ao lado do seu intervalo e preencha-a com =Rand()
Arraste para baixo. Em seguida, copie e cole valores especiais por cima, se for o próprio.
Agora, basta classificá-lo como ascendente ou descendente e escolher os 30 primeiros ou os últimos 30 como sua seleção.
É cerca de 99,999% eficaz, a menos que você tenha milhões em sua lista.