Loop/Repeat Macro

[c0087]

I'm trying to automatically run this so after it finishes copying Sheet "Corp" to a new sheet, it will change the R[-2] to R[-3], then copy/paste "Corp", change to R[-4], etc etc. The final run should be R[-1465].

Sub Macro1()
'
' Macro1 Macro
'

'
  
    ActiveCell.FormulaR1C1 = "=ABS(CD_4[@N2]-R[-2]C[-8])"
    Range("L1468").Select
    Selection.AutoFill Destination:=Range("L2:L1468"), Type:=xlFillDefault
    Range("L2:L1468").Select
    Sheets("Corp").Select
    Cells.Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
End Sub

 

[c0087]

Try

Sub Macro1()
Dim T&
    For T = 2 To 1465
    ActiveCell.FormulaR1C1 = "=ABS(CD_4[@N2]-R[-" & T & "]C[-8])"
    Range("L1468").Select
    Selection.AutoFill Destination:=Range("L2:L1468"), Type:=xlFillDefault
    Range("L2:L1468").Select
    Sheets("Corp").Select
    Cells.Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Next T
End Sub

It runs, and copies the sheets, however all the Sheets are identical (as if the R value never changes)

 

[kvsrinivasamurthy]

Without seeing the file it is not possible to understand problem.
Except for formula all other code is same . Hence data copied is same to all sheets.
If possible show the expected results in a file.
File is to be uploaded to some website and link given here.