Hi, Very new to this forum and just starting to learn vba.

I am trying to create a spreadsheet that will export the cells to a word table. I have used this code that I found online.

Sub export_excel_to_word()
Set obj = CreateObject("Word.Application")
obj.Visible = True
Set newObj = obj.Documents.Add
ActiveSheet.UsedRange.Copy
newObj.Range.Paste
Application.CutCopyMode = False
obj.Activate
newObj.SaveAs Filename:=Application.ActiveWorkbook.Path & "\" & ActiveSheet.Name
End Sub

I need the data to autofit to the page on import when this process is run. At the moment it all works except I have to manually add borders and use the autofit command in word.
Ideally I would like the word to generate the borders around the table at the same time.

Any help will be greatly appreciated.