Boton de comando en un modulo

Tengo el siguinete macro en un modulo:

Sub VeinticincoDeTreintayseis()
Application.ScreenUpdating = False
Dim Unicos As New Collection, Unico, _
Fila As Byte, Col As Byte, Sig As Byte
Do: On Error Resume Next
Unico = Int((Rnd * 36) + 1)
Unicos.Add Unico, CStr(Unico)
Loop Until Unicos.Count = 25
For Col = 1 To 5
For Fila = 1 To 5
Sig = Sig + 1
Cells(Fila, Col) = Unicos(Sig)
Next
Next
End Sub

quisiera ponerle un boton para que se ejecute con un click, que tengo que
hacer?

Gracias