place this code on command button run and on the first time in word will show table with data in it close word and run it again on command button and will be shown only data without the table how to fix this

Private Sub Command12_Click()
Dim objWord As Word.Application
Dim doc As Word.Document
objWord.ActiveDocument.Close
objWord.Quit
Set objWord = Nothing
Set objWord = New Word.Application
Set objWord = GetObject(, "Word.application")
objWord.Visible = True
Set doc = objWord.Documents.add()
doc.Activate
Set doc = Nothing
With objWord.Selection
.Tables.add Range:=Selection.Range, NumRows:=5, NumColumns:=1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed
.TypeText "{ifra" & vbTab & vbTab & "m2" & vbTab & vbTab & "Cena" & vbTab & vbTab & "Kat" & vbTab & vbTab & "Naselba" & vbTab & vbTab & "Grad"
End Sub