Excel cell content in Word template bookmark with formating save word as cell value

Sub Copy_Keep_Formatting()
    Dim wApp As Object
    Dim myDoc As Object
    Dim ws As Worksheet
    Dim Description As Range
    Dim Flow As Range
    Dim LastRow As Long
    
     
    Set ws = ActiveSheet
    LastRow = ws.Range("A10").End(xlUp).Row
     
    Set Description = ws.Range("D2")
    Set Flow = ws.Range("K2")
    Set wApp = CreateObject("Word.Application")
    Set myDoc = wApp.Documents.Open("E:\eBooks\Excel\Bak1\test.dot")
     
    With myDoc
        
    With myDoc.Bookmarks
     .Item("Description").Range.InsertAfter (Description)
     
        
     .Item("Flow").Range.InsertAfter (Flow)
    
    End With
          
          
        .SaveAs ThisWorkbook.Path & "\" & ws.Range("A2").Value & ".doc"
        .Close
    End With
     
    wApp.Quit
     
    Set myDoc = Nothing
    Set wApp = Nothing
     
    MsgBox "All data copied to the document", vbInformation
End Sub