Copy and paste lines

[All2Cheesy]

Hi all,

I've written a macro which copies a line, and pastes it down X amount of times (determined by a number in another field) However, when I run this macro, some of the formulas affected remove 'X' from the numbers in the formula.

e.g. assuming X is 50
if('A652'=1,"Y","N") will become if('A602'=1,"Y","N") in the formula.
Please note, the macro still works, as it will copy the formula down to the correct amount of lines, I am simply looking to have it do this without subtracting numbers from my formula.

Range("A652:AB652").Copy
Range("A652:AB652").Resize(Range("T2").Value).Insert Shift:=xlDown

Assistance would be greatly appreciated.

 

[All2Cheesy]

Edit:

I've pinpointed the piece of code which is altering the numbers in my formulas.

'Add Lines
    Application.Calculation = Manual
    Range("A652:AB652").Copy
    Range("A653:AB653").Resize(Range("T2").Value).Insert Shift:=xlDown
'Clear Lines
    Range("A653:B1000").Select
    Selection.ClearContents
    Application.Calculation = xlAutomatic
    
    ThisWorkbook.Sheets("Summary (Parcel)").Activate
    ActiveSheet.Unprotect password:=password
'Add Lines
    Application.Calculation = Manual
    Range("A652:AB652").Copy
[COLOR="#FF0000"]    Range("A653:AB653").Resize(Range("T2").Value).Insert Shift:=xlDown[/COLOR]
'Clear Lines
    Range("A653:B1000").Select
    Selection.ClearContents
    Application.Calculation = xlAutomatic

The bizarre thing is, there's only one column where the formula is changing incorrectly. This is column M, in the summary(bulk) sheet, even though the point in which the code changes is not when the macro is referencing this page.