那你的自动编号就没有任何意义。
做两列,一列真实的编号,一列序号,序号这样赋值
For Each r As Row In Tables("表A").Rows r("第一列") = r.Index + 1Next