Sub XLtoWord()
Dim docWord As Word.Document
Dim AppWord As Word.Application
If Sheets("Data").Range("D9").Value = 1 Then
Set AppWord = New Word.Application
AppWord.Visible = True
Set docWord = AppWord.Documents.Add
Range("Reactor1").Copy
With AppWord.Selection
.PasteSpecial DataType:=wdPasteBitmap
.InsertBreak Type:=wdLineBreak
.InsertBreak Type:=wdLineBreak
End With
Range("Reactor1T").Copy
With AppWord.Selection
.PasteSpecial DataType:=wdPasteBitmap
.InsertBreak Type:=wdSectionBreakNextPage
End With
End If
Application.CutCopyMode = False
End Sub