主题：移动条自动移动到最后

Dim dr As Row = Tables("表A").Rows(Tables("表A").Rows.Count - 1)

With Tables("表A")
    Dim a As Integer = dr.Index
    Dim b As Integer =  .Cols("第一列").Index  ' 任何一列都可以
    .Select(a,b)
End With