Problème code bouton vba

Bonjour,

Je voudrais créer un bouton de commande dans une page qui serait relié à une macro ( qui sert à rafraichir des données), mais le programme du bouton ne fonctionne pas, je reçois le message " erreur de compilation - end sub attendu".

Je suis débutante en vba donc je ne vois pas où est l'erreur...

Mon code est le suivant:

Private Sub CommandButton1_Click()
Sub MacroR()
Sheets("Feuille Travail").Select
Range("A66").Select
ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotCache.Refresh
Sheets("Récapitulatif").Select
ActiveSheet.Calculate
End Sub
End Sub

Pouvez vous m'aider à détecter l'erreur ?

Merci !!