With Tables("表B")
.AddNew
.Select(.RowSel, Tables("表B").Cols("第五列").Index)
End With
Maintable = Tables("表B")