Macro, der indsætter tabel i word med fast størrelse og tekst

I en skabelon skal det være muligt at indsætte en tabel med en fast størrelse og "fortrykt" tekst. Macro'en skal kører både i 2000 og 2003 (Engelsk). Jeg har lavet følgende, men ryger ud i problemer, når jeg vil indsætte tabellen anden gang. Formentlig p.g.a. koden "tabels(1)"

Så Haj søges !

Sub tabel()
'
' Macro recorded 02-03-2005 by Lene Winkel
'
aVersion = Application.Version

    If aVersion = "9.0" Then
        GoTo 2000
       
    Else
       
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
        2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
        '''
          ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
        2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "Table Grid" Then
            .Style = "Table Grid"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
    End With
End Sub
        '''
       

    Selection.Tables(1).Columns(1).PreferredWidth = CentimetersToPoints(2.55)
    Selection.Tables(1).Columns(2).PreferredWidth = CentimetersToPoints(20.69)
    Selection.Tables(1).Rows.SetLeftIndent LeftIndent:=47.5, RulerStyle:= _
        wdAdjustNone


GoTo Bye

    End If
   
2000:

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
        2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    Selection.Tables(1).Select
    Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter
    Selection.Collapse Direction:=wdCollapseStart
    Selection.Move Unit:=wdColumn, Count:=-1
    Selection.SelectColumn
    Selection.Columns.PreferredWidthType = wdPreferredWidthPoints
    Selection.Columns.PreferredWidth = CentimetersToPoints(2.55)
    Selection.Move Unit:=wdColumn, Count:=1
    Selection.SelectColumn
    Selection.Tables(1).Rows.LeftIndent = CentimetersToPoints(1.68)
    Selection.Columns.PreferredWidthType = wdPreferredWidthPoints
    Selection.Columns.PreferredWidth = CentimetersToPoints(20.69)
    Selection.MoveDown Unit:=wdLine, Count:=1
   
Bye:

Selection.Tables(1).Select
    With Selection.ParagraphFormat
        .SpaceBefore = 5
    End With
    Selection.Font.Size = 7.5
   
   
    Selection.MoveUp Unit:=wdLine, Count:=1
        Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.TypeText Text:="Observation:"
    Selection.MoveRight Unit:=wdCell
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="Bemærkninger:"
    Selection.MoveRight Unit:=wdCell
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="Forslag:"
    Selection.MoveUp Unit:=wdLine, Count:=2
    Selection.MoveRight Unit:=wdCell
End Sub