ExcelVBA SUM関数をセットするsub関数

Sub setSumKansuu(ByVal taisyouCol As Integer, ByVal lastRow As Integer)
MaxUpRow = 2
セル範囲 = "R" & MaxUpRow & "C" & taisyouCol & ":R" & lastRow & "C" & taisyouCol
数式 = "=SUM(" & セル範囲 & ")"
Range(Cells(lastRow + 1, taisyouCol), Cells(lastRow + 1, taisyouCol)).FormulaR1C1 = 数式
End Sub

引数に対称列と最終行を渡す。
また
最終行を取得は下記関数で取得できる。
ActiveCell.SpecialCells(xlLastCell).Select
最終行を変数にセット
MaxDownRow = ActiveCell.Row