Select a range of cells within a table
Article contributed by Bill Coan
Use the Selection.SetRange statement.
The sample provided here selects all cells from row 2 column 2 to row 3 column 3.
If Selection.Information(wdWithInTable) = False
Then Exit Sub
Selection.SetRange _
Start:=Selection.Tables(1).Cell(2, 2).Range.Start, _
End:=Selection.Tables(1).Cell(3, 3).Range.End