合并入库单里面的表头指定内容和表体内容到一个表格形成流水

·礻あ

如图，一个工作簿里面有很多表格，一个表格就是一张入库单，对应的格式和表头表体如图所示，我现在需要将单元格的表头的那个NO，就是入库单号，和表体的内容一起复制到一个表里面，第一列为表头的NO,后面的就是表体里面的标题和内容，我自己写了代码，但是总是执行不了，复制单元格区域的时候总是提示，方法“_default"作用于对象”range"时失败，还请大神帮忙看看怎样写代码

Sub 合并表格()
Dim i%, j%, sh As Worksheet, sh1 As Worksheet
Set sh = ThisWorkbook.Sheets.Add(before:=Sheet1)
sh.Name = "合并"
Sheet1.Rows(6).Copy sh.Rows(1)
i = sh.UsedRange.Rows.Count
j = sh1.UsedRange.Rows.Count
For Each sh1 In ThisWorkbook.Sheets
If sh1 <> "合并" Then
sh1.Rows("7:j-4").Copy
sh.Rows(i + 1).Paste
End If
Next
End Sub
到了sh1.rows(7,这里的时候就提示那个了，而且发现那个usedrange竟然包含了可见区域外的空白单元格 ，不知道是怎么回事