Select all rows of a table except the first row

Article contributed by Bill Coan

ActiveDocument.Tables(1).Select
Selection.SetRange _
        Start:=Selection.Rows(2).Range.Start, _
        End:=Selection.End