Create a text under table

Hello Gurus,

I am using ABAP OLE.
I have writed a table in word.
But when I write a text under the table, the text is populated in cell row 1 col 1.
How can I write a text under table?

Any suggestions?

Many Thanks .

GET PROPERTY OF gs_actdoc 'Tables' = gs_tables .
GET PROPERTY OF gs_selection 'Range' = gs_range .
CALL METHOD OF
    gs_tables
    'Add'     = gs_table
  EXPORTING
    #1        = gs_range
    #2        = '3'
    #3        = '3'.
GET PROPERTY OF gs_table 'Borders' = gs_table_border .
SET PROPERTY OF gs_table_border 'Enable' = '1' .

SET PROPERTY OF gs_font 'Name' = 'Garamond' .
SET PROPERTY OF gs_font 'Size' = '11' .
SET PROPERTY OF gs_font 'Bold' = '0' .
SET PROPERTY OF gs_font 'Italic' = '0' .
SET PROPERTY OF gs_font 'Underline' = '0' .

CALL METHOD OF
    gs_table
    'Cell'   = gs_cell
  EXPORTING
    #1       = '1'
    #2       = '1'.

GET PROPERTY OF gs_cell 'Range' = gs_range .
SET PROPERTY OF gs_range 'Text' = 'OLE Row 1 Col 1' .

-Reseting font attributes for ordinary text
GET PROPERTY OF gs_actdoc 'APPLICATION'     = gs_application.
GET PROPERTY OF gs_application 'Selection' = gs_selection .
GET PROPERTY OF gs_selection 'Font' = gs_font .
GET PROPERTY OF gs_selection 'ParagraphFormat' = gs_parformat .

SET PROPERTY OF gs_font 'Name' = 'Times New Roman' .
SET PROPERTY OF gs_font 'Size' = '12' .
SET PROPERTY OF gs_font 'Bold' = '0' .
SET PROPERTY OF gs_font 'Italic' = '0' .
SET PROPERTY OF gs_font 'Underline' = '0' .

SET PROPERTY OF gs_parformat 'Alignment' = '3' .
GET PROPERTY OF gs_selection 'Paragraphs' = gs_paragraph .
CALL METHOD OF
    gs_paragraph
    'Indent'.
CALL METHOD OF
    gs_selection
    'TypeText'
  EXPORTING
    #1           = 'Text under table'.