Insérer un nombre de ligne précis à la suite VBA

Bonjour,

Voici mon code VBA qui permet de créer un historique d'un tableau. Toutes les lignes s'affichent en dessous à chaque fois et j'aimerais qu'après chaque exécution de cette macro, elle insère (en dessous toujours) 10 lignes en recopiant le format et les formules des colonnes.

Sub sauvegarde()
    Dim n%, nn%
    With ActiveSheet
        n = .Range("C52").End(xlUp).Row - 1
        If n = 1 Then Exit Sub
        nn = .Range("C" & .Rows.Count).End(xlUp).Row + 1
        Application.ScreenUpdating = False
        .Range("C" & nn & ":E" & nn).Resize(n).Value = .Range("C2:E2").Resize(n).Value
        .Range("F" & nn).Resize(n).Value = .Range("J2").Resize(n).Value
        .Range("G" & nn).Resize(n).Value = .Range("L2").Resize(n).Value
        .Range("I" & nn).Resize(n).Value = .Range("K2").Resize(n).Value
        .Range("K" & nn).Resize(n).Value = .Range("I2").Resize(n).Value
        .Range("B" & nn) = .Range("S5")
        .Range("L" & nn) = .Range("S21")
        .Range("B2:E51").ClearContents
        .Range("G2:K51").ClearContents
        .Range("N2:N51").ClearContents
        .Range("P2:P51").ClearContents
        .Range("S5:S6").ClearContents
    End With
End Sub

Merci de votre aide !