Deleting Tables

Deleting from a header

Dim oHeaderRange As Word.Range 
Set oHeaderRange = ThisDocument.Sections.Item(1).Headers(wdHeaderFooterPrimary).Range 
oHeaderRange.Tables.Item(1).Delete