Bob,

You don't really need to select the text to delete it. Here is a macro
that finds text between the first and second tabs following the
insertion point and deletes the text while leaving the tabs.

Sub DeleteTextBetweenTabs()
Dim myRange As Range
Set myRange = Selection.Range
myRange.End = ActiveDocument.Range.End
With myRange.Find
.ClearFormatting
.MatchWildcards = True
.Text = "^t" & "*" & "^t"
.Execute
myRange.Start = myRange.Start + 1
myRange.End = myRange.End - 1
myRange.Delete
End With
End Sub