Sub InsertTable()

    Dim intPage As Integer
    Dim strPage As String
    Dim strFile As String
    Dim rng As Range
    Dim doc As Document
    Dim tbl As Table
    Dim sec As Section
    Dim hdr As HeaderFooter
    Dim fd As fileDialog
    Dim response As VbMsgBoxResult
   
    response = MsgBox("Do you need to insert table?")
    If response = vbNo Then Exit Sub

    strPage = InputBox("Insert after which page?")
    If strPage = "" Then Exit Sub

    intPage = CInt(strPage)

    ' Ask the user for the path to the specific document
    Set fd = Application.fileDialog(msoFileDialogFilePicker)
    With fd
        .Title = "Select Document"
        .AllowMultiSelect = False
        .InitialFileName = ActiveDocument.Path & "\"
        .Filters.Clear
        .Filters.Add "Word Documents", "*.docx"
        If .Show = True Then
            strFile = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
   
    ' Open the specific document
    Set doc = Documents.Open(strFile)
   
    ' Copy the first table from the specific document
    Set tbl = doc.Tables(1)
    tbl.Range.Copy
   
    ' Close the specific document
    doc.Close
   
    ' Set the range according to the user inputs
    Set rng = ActiveDocument.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=intPage + 1).GoTo(What:=wdGoToBookmark, Name:="\page")
   
    ' Insert a section break at the specified location
    rng.InsertBreak Type:=wdSectionBreakNextPage
   
    ' Insert the copied table at the specified location
    rng.PasteAndFormat (wdFormatOriginalFormatting)
   
    ' Remove the page number of the inserted table
    Set sec = ActiveDocument.Sections(ActiveDocument.Sections.Count)
    sec.PageSetup.DifferentFirstPageHeaderFooter = True
    For Each hdr In sec.Headers
        If hdr.Exists And hdr.IsHeader = True Then
            hdr.PageNumbers.RestartNumberingAtSection = True
            hdr.PageNumbers.StartingNumber = intPage
        End If
    Next hdr

   
End Sub

 Dim orng As Range
 Dim oTable As Table
    Set orng = Selection.Range
    If orng.Information(wdWithInTable) = True Then
        Set oTable = orng.Tables(1)
        orng.Start = oTable.Range.Start
        orng.Collapse 1
        orng.Select
        Selection.SplitTable
        Set orng = Selection.Range
        orng.Text = "The selection is before the table"
    Else
        orng.Text = "The selection is not in a table"
    End If