Public Sub SelectRows()
    Dim doc As Document
    Dim tbl As Table
    Dim rng As Range
    Dim intRows As Integer
    
    Set doc = ActiveDocument
    Set tbl = doc.Tables( 1 )
    
    intRows = tbl.Rows.Count

    Set rng = doc.Range( _
      Start:=tbl.Rows( 2 ).Range.Start, _
      End:=tbl.Rows(intRows).Range.End)
    rng.Select
End Sub

Public Sub SelectRows2()
    Dim doc As Document
    Dim tbl As Table
    Dim rng As Range
    Dim intRows As Integer
    
    Set doc = ActiveDocument
    Set tbl = doc.Tables( 1 )
    
    intRows = tbl.Rows.Count
    
    tbl.Rows( 2 ).Select
    Selection.ExtendMode = True
    Selection.MoveDown _
      Unit:=wdLine, _
      Count:=intRows -  2 , _
      Extend:=wdExtend
End Sub