Sub PopulateWordDoc()

Dim wrdApp As Object
Dim wrdDoc As Object
Dim sPath As String
Dim vaBookmarks As Variant
Dim wksBookmarks As Worksheet
Dim newFileName As String
Dim newFilePath As String
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = CreateObject("word.document")

Set wksBookmarks = Sheets("Bookmarks")
vaBookmarks = wksBookmarks.Range("rngBookmarksList").Value
Set wrdApp = CreateObject("Word.Application")
sPath = ThisWorkbook.Path & ""
On Error GoTo errHandler
Set wrdDoc = wrdApp.Documents.Open(sPath & "TemplateFillDocument.dotm")