Yazmak istediğin yerde bu makroyu çalıştırman yeterli. ( 1 den 25 kadar rastgele üretir. Sayıyı büyüterek daha büyük sayılar oluşturabilirsin. )
...
Sub test()
'
' test Makro
'
'
x = Int(25 * Rnd()) + 1
Selection.TypeText Text:=x

End Sub