VBA macro to create word table

[santy2906]

Need help creating word table in vba in attached format.

so far I have this code:
Sub ChangeTableBorders(oWordTable As Word.table)
With oWordTable
.Spacing = 9
.Borders.InsideColor = wdColorBlue
.Borders.InsideLineStyle = wdLineStyleDashSmallGap
.Borders.OutsideColor = wdColorBlue
.Borders.OutsideLineStyle = wdLineStyleDashSmallGap
End With
End Sub

Sub ChangeTableRowBorder(oWordTableRow As Word.Row)
With oWordTableRow
.Shading.BackgroundPatternColor = wdColorAutomatic
.Borders(wdBorderBottom).Color = wdColorBlack
.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
.Borders(wdBorderBottom).LineWidth = wdLineWidth050pt
End With
End Sub

I could not create that horizontal line due to spacing.

Any help would be highly appreciated!