Option Explicit

Sub ExportFinalColumnToWord()
    On Error GoTo errorHandler

    Dim wdApp As Word.Application
    Dim myDoc As Word.Document
    Dim mywdRange As Word.Range
    
    Dim MyColumnA As Excel.Range
    Dim MyColumnB As Excel.Range
    Dim MyColumnC As Excel.Range
    Dim MyColumnE As Excel.Range

    On Error Resume Next
        Set wdApp = GetObject(, "Word.Application")
        If Err.Number <> 0 Then
            Set wdApp = CreateObject("Word.Application")
        End If
    On Error GoTo 0

' You need to change the path details here -
' This will create a new document based on your original.
    Set myDoc = wdApp.Documents.Add(Template:="C:\Tempo\ExWd.doc")

' Here you need to change the following:
' MySheet - this is the tab name of the sheet in the spreadsheet
' A1,B1,C1,E1 - these are the columns where the data is found
    Set MyColumnA = Sheets("MySheet").Range("A1").End(xlDown)
    Set MyColumnB = Sheets("MySheet").Range("B1").End(xlDown)
    Set MyColumnC = Sheets("MySheet").Range("C1").End(xlDown)
    Set MyColumnE = Sheets("MySheet").Range("E1").End(xlDown)


' This is where you get the information pasted into your document.
' Below there are four references to bookmarks - inside the ("").
' You will need to change the names to those of YOUR bookmarks.
' If you want data entered into more than one place, you need to
' create a new line, as below, and change the bookmark name,
' choosing the correct reference at the end 'MyColumnX'
' For example to have the information from Column A in another place,
' you would add the line in green that is below this section.
        With myDoc.Bookmarks
            .Item("bmMyColumnA").Range.InsertAfter MyColumnA
            .Item("bmMyColumnB").Range.InsertAfter MyColumnB
            .Item("bmMyColumnC").Range.InsertAfter MyColumnC
            .Item("bmMyColumnE").Range.InsertAfter MyColumnE
'           .Item("bmMyColumnA_2").Range.InsertAfter MyColumnA
        End With

' At this point the Word Application will appear in your taskbar
    wdApp.Visible = True
    Exit Sub

errorHandler:
    wdApp.Quit
    Set wdApp = Nothing
    Set myDoc = Nothing
    Set mywdRange = Nothing

End Sub