求多表合并的VBA代码

现有一个工作簿，里面有N个多行标题行的工作表，所有工作表的格式全部一样，内容不一样。现在想把这N个工作表合并为该工作簿中的一个工作表，取名为汇总表。该怎么编写VBA代码？