Private Sub InsertingBlankLine()
Dim oWord As Word.Application
Dim oDoc As Document
Dim oRng As Range
Dim oTbl As Table
  Set oWord = CreateObject("Word.Application")
  oWord.Visible = True
  Set oDoc = oWord.Documents.Add
  Set oTbl = oDoc.Tables.Add(oDoc.Range, 8, 5)
  Set oRng = oTbl.Range
  oTbl.Borders.Enable = True
  oRng.Collapse wdCollapseStart
  oRng.InsertBreak Type:=wdColumnBreak
  oRng.Text = "fsdhfkhfkdhfdskfhd fkdshfdkfhdskfhdsfd fdshgfdjdsjfg"
End Sub