我需要在Excel VBA的动态表格底部插入一个合计

Sub InsertTotal()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim totalRow As Range
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为实际的工作表名称
    
    ' 获取动态表格的最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 在最后一行的下方插入一行
    ws.Rows(lastRow + 1).Insert Shift:=xlDown
    
    ' 设置合计行的范围
    Set totalRow = ws.Range("A" & lastRow + 1 & ":D" & lastRow + 1) ' 将"A"、"D"替换为实际的列标
    
    ' 在合计行中填入公式并格式化
    With totalRow
        .Cells(1, 1).Value = "合计"
        .Cells(1, 2).Formula = "=SUM(B2:B" & lastRow & ")" ' 将"B"替换为实际的列标
        .Cells(1, 3).Formula = "=SUM(C2:C" & lastRow & ")" ' 将"C"替换为实际的列标
        .Cells(1, 4).Formula = "=SUM(D2:D" & lastRow & ")" ' 将"D"替换为实际的列标
        .Font.Bold = True
        .HorizontalAlignment = xlCenter
    End With
    
    ' 调整表格的边框线
    ws.Cells(lastRow + 1, 1).Borders(xlEdgeTop).LineStyle = xlContinuous
    ws.Cells(lastRow + 1, 1).Borders(xlEdgeTop).Weight = xlMedium
    
    ' 清除选择范围
    ws.Range("A1").Select
End Sub