Hjælp med indsættelse af data i tabel i word

Hejsa,

Jeg er igang med at lave en tabel i word som skal fungere som en slags skabelon til noget serie nummerering.
Tabellen består af en række med 18 kolonner hvori der skal stå serie nummerering som eks.

kol 1: (ddmmåå)(3 mellemrum)XXX1
kol 2: (ddmmåå)(3 mellemrum)XXX2
osv
kol 18: (ddmmåå)(3 mellemrum)XX18



Jeg har oprettet tabel og indstillet det hele, men kunne hertil godt tænke mig en knap function hvor jeg ved klik på denne får en beskedbox, hovr jeg kan indtaste start serienummer og så skal den indputte det i første kolonne og derefter i næste kolonne+1 osv.

selv nummerering skal bestå af en dato som skal være dags dato format og så 3 mellemrum imellem dato og nummer bestående af 4 ciffer, disse 4 ciffer skal være fortløbende

Dertil kunne jeg godt tænke mig en knap til som ved klik på denne tager det sidste serienummer i kol 18 og sætter ind i kol 1+1 og så forfra ellers....altså en auto nummer knap

mit dokument ser forløbig sådan ud i kode, ret mig gerne hvis der er noget som er ukorrekt brugt.

' opretter tabel 1 række og 18 kolonner

  Set myRange = ActiveDocument.Range(0, 0)
    ActiveDocument.Tables.Add Range:=myRange, NumRows:=1, NumColumns:=18

       
       
            With Selection.Tables(1)    ' indstiller højde og bredde på celler
                .Columns.PreferredWidth = CentimetersToPoints(0.8)
                Selection.Rows.HeightRule = wdRowHeightExactly
                Selection.Rows.Height = CentimetersToPoints(4.2)
               
                If .Style <> "Tabel - Gitter" Then
                    .Style = "Tabel - Gitter"
                End If
                .ApplyStyleHeadingRows = True
                .ApplyStyleLastRow = True
                .ApplyStyleFirstColumn = True
                .ApplyStyleLastColumn = True
            End With



            With Selection.Cells(1)
                .WordWrap = False
                .FitText = False
            End With
           
            With Selection.Tables(1)
                .TopPadding = CentimetersToPoints(0)
                .BottomPadding = CentimetersToPoints(0)
                .LeftPadding = CentimetersToPoints(0)
                .RightPadding = CentimetersToPoints(0)
                .Spacing = 0
                .AllowPageBreaks = True
                .AllowAutoFit = False
            End With
            Selection.Orientation = wdTextOrientationUpward
            Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
            Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter


           
End Sub



Sub kommandoknap()
'
' indsætter kommando knap i dokument

    ActiveDocument.ToggleFormsDesign
    Selection.InlineShapes.AddOLEControl ClassType:="Forms.CommandButton.1"
   
End Sub


Håber i kan fårstå hvad der er jeg gerne vil have hjælp til ellers så spørg bare.

På forhånd tak

mvh dsj