Débutante : mettre fin a ma macro?

Bonjour voilà ma macro, seulement je ne sais aucunement comment y mettre fin?
Pouvez vous m'aider? J'ai appris de cette façon il y a quelque temps mais pour mettre fin a la macro je ne sais vraiment plus! Merci d'avance



Sub demande()
'
' fiche_prêt Macro
' Macro enregistrée le 05/02/2010 par lpmo007
'

'
Application.Range("C6").Select
DY = Application.InputBox("Date d'aujoud'hui", "saisie date", , , , , , 3)
ActiveCell.Value = DY
ActiveCell.Offset(6, 0).Activate
DY = Application.InputBox("Date de livraison?", "saisie date", , , , , , 3)
ActiveCell.Value = DY
ActiveCell.Offset(3, 0).Activate
DY = Application.InputBox("quelle quantité souhaitez vous commander?", "quantité commandée", , , , , , 3)
ActiveCell.Value = DY
ActiveCell.Offset(0, 3).Activate
DY = Application.InputBox("Quantité en stock actuelle?", "quantité en stock actuelle", , , , , , 3)
ActiveCell.Value = DY