Macro

Bonjour,

Je travaille sur Office 2013.
Je reprends un vieux tableau crée par mon predecesseur mais j'ai un petit souci. Cette macro sert à créer une nouvelle ligne vierge en ligne 6 tout en recopiant les formules associées à chaque cellule.

Mon problème est que maintenant la marco copie toujours la meme ligne N°15 qui est déjà écrite, et en plus elle recopie en ligne 15 et non en ligne 6 comme elle le devrait.

Pour information c'est un tableau qui comporte plus de 2000 lignes. On dirait que la macro ne s'étend pas suite à l'ajout de nombreuses lignes durant ces derniers mois.
Pourriez vous m'aider? ci dessous la macro en question
D'avance merci beaucoup

Sub New_Line()

With Application
.Calculation = xlManual
.Iteration = False
.ScreenUpdating = False
.DisplayAlerts = False
.EnableEvents = False
End With


Dim r As Integer

r = Range("First_Line").Row

Rows(r + 1).Select
Selection.Insert Shift:=x2Down
Rows(r).Select
Selection.Copy
Rows(r + 1).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False
Calculate
Range("First_Line").Offset(1, 0).Select

End Sub