WordAppl.ActiveDocument.Bookmarks("tmTabelle").Range.Tables.Add _
  Selection.Range, 2, 3, wdWord9TableBehavior, wdAutoFitFixed
 
    Selection.TypeText Text:="Kopf1"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="Kopf2"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="Kopf3"
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=2
    Selection.TypeText Text:="Text1"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="Text2"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="Text3"
    Selection.MoveRight Unit:=wdCell
 
...