VBA - Opret tabel og flet celler

Måske noget i denne stil.

Den er blot optaget i Word og indsætter en tabel med 5 rækker og 3 kolonner (kan tilpasses) og fletter første række:
Sub Macro1()
'
' Macro1 Macro
'
'
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=5, NumColumns:= _
        3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    Selection.SelectRow
    Selection.Cells.Merge
End Sub