列の合計行を追加するD - M

Question

この構文を使用して列Dの合計行を追加しましたが、今度はD - Mの合計行を追加する必要があります。列名には列D〜Mの下端に合計行を追加できる、すばやく再利用可能な関数がありますか？

With ActiveSheet 
If Application.WorksheetFunction.CountA(.Cells) <> 0 Then 
    lastrow = .Cells.Find(What:="*", _ 
        After:=.Range("D1"), _ 
        Lookat:=xlPart, _ 
        LookIn:=xlFormulas, _ 
        SearchOrder:=xlByRows, _ 
        SearchDirection:=xlPrevious, _ 
        MatchCase:=False).Row 
Else 
    lastrow = 1 
End If 
End With 
Range("D" & lastrow +1).FormulaR1C1 = "=SUM(R[-" & lastrow & "]C:R[-1]C)" 

Answer 1

これは、その範囲をハイライト表示し、Ctrlキー+右矢印

を押すのと同じ効果があり

range("D" & lastrow + 1 & ":M" & lastrow + 1).FillRight