ActiveDocument.Bookmarks("Table_5").Select
ActiveDocument.Tables.add Range:=Selection.Range, NumRows:=2, NumColumns:= _
3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
With Selection.Tables(1)
If .Style <> "Table Grid" Then
.Style = "Table Grid"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = False
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = False
.ApplyStyleRowBands = True
.ApplyStyleColumnBands = False
End With

Selection.TypeText Text:="Due Date"
Selection.MoveRight unit:=wdCell
Selection.TypeText Text:="Staff Name"
Selection.MoveRight unit:=wdCell
Selection.TypeText Text:="Supervisor"
Selection.MoveRight unit:=wdCell