co tohle:

Private Sub CommandButton1_Click()
Dim nah_cislo As Long
'náhodné číslo v rozsahu 2 až 12
nah_cislo = WorksheetFunction.RandBetween(2, 12)
' 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