合并30多张excel表，表头有合并单元格

我想将多个excel 表合并在一多excel表中，但是excel的表头是有合并单元格的，如下图片所示（合并的情况），紧急，希望通过vba代码实现，谢谢！

表头的高度是否是固定的？如果是，直接跳过就可以。录制一个宏，把一个表的除了表头的部分粘贴到第一个表后面
然后看生成的代码，只要在此基础上算出每次插入的位置，循环插入别的表就可以。

Workbooks.Open "D:\2017.xlsx" #打开一个工作薄
Workbooks("2017.xlsx").Worksheets("sheet1").Activate #激活里面的工作表
Range("A4:L135").Select #选择A4到L135区域（选择表头后的数据）
Selection.Copy 复制这个区域
打开另一个工作薄
激活对应的工作表
zdh = Range("A1").CurrentRegion.Rows.Count + 1 #定位到要粘贴的单元格（最大行zdh变量要先定义）
Range("A" & zdh).PasteSpecial Paste:=xlPasteValues #数据粘贴进去
如果要一个文件夹下的所有工作薄都自动粘贴到某个指定的工作薄中去，还得用一小段代码遍历这个文件夹，依次打开里面的工作薄