Bom dia!!
Eu acho que eu não entendi

Sub Rand()
    Application.ScreenUpdating = False
        ActiveSheet.Range("C5,D7,E9,F11,G13,H15,I17,J19,K21,L23,M25,N27,O29") = 1 + Int(Rnd * 10)
    Application.ScreenUpdating = True
 End Sub

Att

É assim:
O valor aqui "(Int(Rnd * 10)" é informado individualmente, só que no formato 0,0 - 0,1 até 2,0 ou seja números que não são inteiros.
Então na célula o valor que aparecer, é o parâmetro informado na macro que vai do valor x ao valor y.

eu tinha postado algo, mas como não tinha entendido direito e acho que ainda não entendi acabei apagando

mas de qualquer forma testa aí
não sei lidar com radom

acho que consegui oq vc quer

Rapaz, nun eh ki ficou uma belezura. Tava achando que o titulo do rei das postagens sem solução, ia ficar comigo.