请帮看进货单保存代码

在进货单中点保存怎么都保存不到明细表中。 表名及页码在图片左上角。

代码：

Sub 保存()

On Error GoTo 10000

Dim es As Range, m%

If Sheet11.Columns("g").Find([c5]) = [c5] Then

MsgBox "已经保存过了！"

Else

10000:

Set es = Cells.Find("*", , xlValues, , xlByRows, xlPrevious)

m = Application.CountA(Sheet11.[c:c])

n = es.Row

If es.Row = 8 Then MsgBox "没有填写内容": End

Range([a9], es).Copy Sheet11.Cells(m + 1, 1)

Sheet11.Cells(m + 1, "g").Resize(es.Row - 8) = [b2] '保存入库单

Sheet11.Cells(m + 1, "h").Resize(es.Row - 8) = [c2] '保存供应商

Sheet11.Cells(m + 1, "i").Resize(es.Row - 8) = Now() '保存日期时间

End If

End Sub