book.sheets(0)( Tables("表A").Rows.Count + 9, 4).Value = "sum(E10:E" & Tables("表A").Rows.Count + 9 & ")=" & Tables("表A").Compute("Sum(金额)")