Žabáku jen pro Tebe

Private Sub CommandButton1_Click()

Dim nah_cislo As Long
Dim spodni_mez As Double
Dim horni_mez As Double

spodni_mez = 2
horni_mez = 12

'náhodné číslo v rozsahu 2 až 12
nah_cislo = Int((horni_mez - spodni_mez + 1) * Rnd + spodni_mez)

' do buňky A1 se zobrazí náhodné číslo
Range("A1").Value = nah_cislo

'v buňce D1 se bude přičítat náhodné číslo ke stávajícímu
Range("D1").FormulaR1C1 = Range("D1").Value + nah_cislo
End Sub