Formula R1C1

[Chasse]

Bonjour le forum.
Est t’il possible de simplifier cette partie de code, sans devoir passer par le copier coller
En effet j’aimerais n’avoir que la valeur (sans la formule)

Range("E" & n) = "=SUM(R[-6]C:R[-1]C)"
Range("E" & n).Copy
Range("E" & n).PasteSpecial Paste:=xlPasteValues
          Range("A" & n) = "=INT(MOD(INT((RC[1]-2)/7)+0.6,52+5/28)+1)"
          Range("A" & n).Copy
          Range("A" & n).PasteSpecial Paste:=xlPasteValues
      Range("G" & n) = "=SUM(R[-6]C:R[-1]C)-SUMIF(R[-6]C[1]:R[-1]C[1],""Kompensation"",R[-6]C:R[-1]C)"
      Range("G" & n).Copy
      Range("G" & n).PasteSpecial Paste:=xlPasteValues

Code complet

Sub Macro5()
Range("A1").Select
    ActiveSheet.Paste 
For n = 6 To Sheets("Xtacho").Range("A" & Rows.Count).End(xlUp).Row
If (Left(Sheets("Xtacho").Range("A" & n), 8)) = "Dimanche" Then
Range("C" & n) = Range("B" & n).Value
  	 Range("B" & n) = Range("B" & n - 6)
       		 Range("E" & n) = "=SUM(R[-6]C:R[-1]C)"
        		Range("E" & n).Copy
        		Range("E" & n).PasteSpecial Paste:=xlPasteValues
           			 Range("A" & n) = "=INT(MOD(INT((RC[1]-2)/7)+0.6,52+5/28)+1)"
            			Range("A" & n).Copy
            			Range("A" & n).PasteSpecial Paste:=xlPasteValues
Range("G" & n) = "=SUM(R[-6]C:R[-1]C)-SUMIF(R[-6]C[1]:R[-1]C[1],""Kompensation"",R[-6]C:R[-1]C)"
Range("G" & n).Copy
Range("G" & n).PasteSpecial Paste:=xlPasteValues
End If
Next
 End Sub

Merci de votre aide