VBAで行単位で実行

Question

行にセルを追加するための数式を挿入するコードを作成し、値のパスを選択した列の次の行に追加した後にコードを作成する必要があります。ご協力いただきありがとうございます。ちょうどこの1行を使用

For cont = 1 To 125 
    Range("BA1").Select 

    Cells(cont, 53).Value = Range("BA2").Select 
    ActiveCell.FormulaR1C1 = _ 
    "=RC[-1]+RC[-2]+RC[-3]+RC[-4]+RC[-5]+RC[-6]+RC[-7]+RC[-8]+RC[-9]+RC[-10]+RC[-11]+RC[-12]+RC[-13]+RC[-14]+RC[-15]+RC[-16]+RC[-17]+RC[-18]+RC[-19]+RC[-20]+RC[-21]+RC[-22]+RC[-23]+RC[-24]+RC[-25]+RC[-26]+RC[-28]+RC[-30]+RC[-32]+RC[-34]+RC[-36]+RC[-38]+RC[-39]+RC[-40]+RC[-41]+RC[-42]" 


    Next cont 

Answer 1

必要はありませんループ、。

Range("BA2:BA125").FormulaR1C1 = "=SUM(RC[-42]:RC[-1])"