Wasn’t sure whether to put this under Word or Excel, but went with Word as this is where the data needs to end up.

I have two buttons on my Word userform which I need to import a specifically named worksheet table into a specific TextBox. It will not always be necessary to use both buttons, but if they are both used, then the contents of the TextBox should not be overwritten by the other button’s action.

The Excel Workbook will already be open and the worksheets are already named. The tables do not have a fixed number / range of cells. I can move the Dims to the start of the document if this is needed (save on repetition?) after OptionExplicit.

Here is what I have so far, which rather helpfully does nothing when either button is pressed.

' Add Markers Detail

Private Sub MarkersBut_Click()
    
    'Using Early Binding
    
    Dim wordApp     As Word.Application
    Dim mydoc       As Word.Document
    Dim wb          As Workbook
    Application.ScreenUpdating = False
    Set wb = ActiveSheet("Markers")
    
    ' Copying the content from active Excel worksheet named Markers
    
    ThisWorkbook.Worksheets("Markers").Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select.Copy
    
    'Pasting into the document within TextBox3
    
    TextBox3(1).Range.Selection.PasteExcelTable _
    LinkedToExcel:=False, WordFormatting:=False, RTF:=False
    
    'Emptying the Clipboard after use
    
    CutCopyMode = False
    
End Sub

' Add Person Detail

Private Sub PersonBut_Click()
    
    'Using Early Binding
    
    Dim wordApp     As Word.Application
    Dim mydoc       As Word.Document
    Dim wb          As Workbook
    Application.ScreenUpdating = False
    Set wb = ActiveSheet("Person")
    
    ' Copying the content from active Excel worksheet named Person
    
    ThisWorkbook.Worksheets("Person").Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select.Copy
    
    'Pasting into the document within TextBox3
    
    TextBox3(1).Range.Selection.PasteExcelTable _
    LinkedToExcel:=False, WordFormatting:=False, RTF:=False
    
    'Emptying the Clipboard after use
    
    CutCopyMode = False
    
End Sub