Hücre numaralarını artırmak

[kayaasim]

Merhaba;

Aşağıdaki kodda bulunan ve kalınlaşarak belirttiğim sayıları j257+j258....j1500,R[2304]:R[2313],R[2313]:R[2322],..... artan şekilde çoğaltmak istiyorum yardımcı olabilirseniz sevinirim,

' Keyboard Shortcut: Ctrl+l
'
Range("J257").Select
Range(Selection, Cells(ActiveCell.Row, 1)).Select
Selection.FormulaArray = "=TRANSPOSE(Sheet1!R[2304]:R[2313])"
Range("J258").Select
Range(Selection, Cells(ActiveCell.Row, 1)).Select
Selection.FormulaArray = "=TRANSPOSE(Sheet1!R[2313]:R[2322])"
Range("J259").Select
Range(Selection, Cells(ActiveCell.Row, 1)).Select
Selection.FormulaArray = "=TRANSPOSE(Sheet1!R[2322]:R[2331])"
Range("J260").Select
Range(Selection, Cells(ActiveCell.Row, 1)).Select
Selection.FormulaArray = "=TRANSPOSE(Sheet1!R[2331]:R[2340])"
End Sub