also I'm also struggling with the following:

PUT_IN_WORD:

OPEN_WORD:
Dim wordapp As Object
Set wordapp = CreateObject("Word.Application")
wordapp.Visible = True
wordapp.Documents.Open "X:\A350XWB Manufacturing\General\5020 Concessions\TEMPLATES\BLANK.doc"

COPY_AND_PASTE_INTO_WORD:
Range("A1:A10").Copy 'FIRST LINE AND DIV 1
'PASTE UNFORMATTED TEXT
INPUT_VAR = Application.Cells(23, 2)
DIV = 2
Do While INPUT_VAR > 1
    Range(Cells(3, DIV), Cells(10, DIV)).Copy
    'Paste UNFORMATTED TEXT
    DIV = DIV + 1
    INPUT_VAR = INPUT_VAR - 1
Loop
Range("A11:A13").Copy 'LAST 3 LINES
'PASTE UNFORMATTED TEXT
Range("A14:B25").Copy 'INFO TABLE
'PASTE WITH FORMATTING
'wordapp.Selection.PasteSpecial DataType:=wdPasteText
'Application.CutCopyMode = False

SAVE_WORD:
wordapp.document.Save
'SAVE as - in specific location
It's part of the same macro.. not sure why it doesn't work