Selecting Cells

Select Continuous Cells

Set objRange = ActiveDocument.Range(Start:=.Tables(1).Cell(2,2).Range.Start, _ 
                                                End:=.Tables(1).Cell(4,4).Range.End) 

This will create a range for a continuous group of cells.
The start must occur before the end, both in terms of rows and columns