You don't actually need the range name on this occasion, though I tend to use them through force of habit.
Code:
ActiveDocument.AttachedTemplate.BuildingBlockEntries("AddtValSiteBB").Insert _
Where:=ActiveDocument.Bookmarks("AddtValSites").Range
would have done the job.