制作财务汇总表的方法如下：
明确财务报表的用途和科目结构
确定你需要汇总的财务数据类型，例如收入、支出、资产负债等。
设计一个合适的表格结构，包括所有必要的列和行，例如日期、项目名称、金额等。
收集和整理数据
从相关的会计账簿、凭证和其他文件中收集需要的数据。
确保数据的准确性和完整性，并进行必要的分类和计算。
编制科目汇总表
在表格中填入相关的财务数据，并根据需要添加计算公式或其他辅助工具。
可以选择不同的科目划分方式，如按资产、负债、所有者权益以及收入和支出等分类。
根据会计政策和程序，确保汇总表内容的完整性和记账准确性。
使用VBA进行动态分类汇总 （可选）：
如果需要频繁进行汇总，可以启用Excel的VBA开发工具，编写VBA代码来实现动态分类汇总。
例如，可以编写一个VBA宏来自动按部门、月份或商品分类汇总财务数据。
审核和保存汇总表
核实汇总表内容的完整性和记账准确性。
将汇总表保存到一个安全的位置，并确保它可以被未来的审计和查账使用。
编制财务报表
期末，根据总分类账和明细分类账的记录，编制财务报表。
```vba
Sub DynamicSummary（）
' 定义变量
Dim wsSource As Worksheet
Dim wsSummary As Worksheet
Dim lastRow As Long
Dim summaryRow As Long
' 设置工作表
Set wsSource = ThisWorkbook.Sheets（"Sheet1"） ' 源数据表
Set wsSummary = ThisWorkbook.Sheets（"Sheet2"） ' 汇总表
' 获取源数据表的最后一行
lastRow = wsSource.Cells（wsSource.Rows.Count, "A"）.End（xlUp）.Row
' 设置汇总表的最后一行
summaryRow = 2 ' 假设汇总表从第二行开始
' 复制源数据表的标题行到汇总表
wsSource.Rows（1）.Copy Destination:=wsSummary.Rows（summaryRow）
' 循环遍历源数据表的数据
For i = 2 To lastRow
' 假设按部门汇总收入
If wsSource.Cells（i, 3）.Value <> "" Then ' 假设部门在第三列
' 查找汇总表中是否已有该部门的记录
Dim summaryRow As Long
summaryRow = wsSummary.Cells（wsSummary.Rows.Count, "A"）.End（xlUp）.Row + 1
If summaryRow = 2 Then
' 如果汇总表为空，直接复制数据
wsSource.Rows（i）.Copy Destination:=wsSummary.Rows（summaryRow）
Else
' 否则，累加收入
wsSummary.Cells（summaryRow, 4）.Value = wsSummary.Cells（summaryRow, 4）.Value + wsSource.Cells（i, 3）.Value
End If
End If
Next i
End Sub
```
这个VBA代码会将源数据表中按部门汇总的收入数据复制到汇总表中，并实现动态更新。你可以根据实际需求修改代码，以实现其他类型的汇总。