Faire un copie de toute une feuille

Bonjour,

Je souhaiterai faire une macro qui fasse une copie de toute une feuille sur une nouvelle feuille. je souhaiterai également que le nom de cette feuille soit la date de l'éxécution de cette marco.

J'ai aussi un certain nombre de contraintes :
1) la feuille d'origine à une mise en page bien précise (couleurs, cellules fusionnés, encadrement...) qu'il faudrait conserver.
2) la feuille d'origine à une macro, donc on ne peut pas envisager de renommer la feuille d'origine pour qu'elle devienne la sauvegarde, et créer un nouvelle fEuille vierge qui deviendrai la feuille d'origine.
3) Je souhaiterai conserver un nombre limité de sauvegarde, disons 5 par exemple.

J'ai essayé de bidouiller avec l'enregistreur de macro, mais ça marche pas, il bloque toujours sur un problème de sélection :

Private Sub Sauvegarder_derniere_mesure()

Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("save").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("C2950").Select
Range("A3").Select
End Sub

Cliquez pour agrandir...

Typiquement sur cette exemple, il bloque sur Range("A1").Select ou ActiveSheet.Paste , ça dépend des fois

Si quelqu'un aurait une idée un exemple, je serais complètement preneur

Merci d'avance

EDIT : un exemple en PJ,

Il faudrait que :
le contenue de "S -4" soit supprimé
le contenue de "S -3" soit déplacé dans "S -4"
le contenue de "S -2" soit déplacé dans "S -3"
le contenue de "S -1" soit déplacé dans "S -2"
le contenue de "C2950 - Dernière extraction" soit déplacé dans "S -1"

puis dans "C2950 - Dernière extraction" je lance une macro que j'ai déja faite