Dim wd As Object
Dim oRng As Object
Dim oTable As Object
Dim wsRepCom As Worksheet
    Set wsRepCom = ActiveSheet
    On Error Resume Next
    Set wd = GetObject(, "Word.Application")
    On Error GoTo 0
    wsRepCom.Range("Table3").Copy
    Set oRng = wd.activedocument.Bookmarks("Table3").Range
    oRng.PasteExcelTable False, False, True
    Set oTable = oRng.Tables(1)
    With oTable
        .AutoFitBehavior 1
        .Range.ParagraphFormat.SpaceAfter = 6
    End With