Not only _can_ you avoid selecting and deselecting, you _should_ avoid it
whenever possible. Instead, declare a Range variable, set it to point to the
particular cell you want, and make that Range object the value of the Range
argument in the Fields.Add statement:

   Dim myRg As Range

   ' point at the cell you want
   ' in the table you want
   Set myRg = ActiveDocument.Tables(1).Cell(2, 2).Range

   ' exclude table cell marker
   myRg.MoveEnd wdCharacter, -1

   ActiveDocument.Fields.Add _
     Range:=myRg, _
     Type:=wdFieldDocVariable, _
     Text:="dv1"

   ActiveDocument.Fields.Update