Help: converting new sheets to word document

Hi

is there a way to create a macro to automatically save new sheets as a Word document in a specific file

also i have another code that may need help on

ARowbot helped me yesterday with this code which I got to say with his fast response to my post i was very pleased with his/her help and can't say thank you enough

Sub Auto_Quotes()
    Dim MyCell As Range, MyRange As Range
    Dim i As Integer
    
    Set MyRange = Sheets("Summary").Range("A2")
    Set MyRange = Range(MyRange, MyRange.End(xlDown))

Application.ScreenUpdating = False

    For Each MyCell In MyRange
        Sheets("Template").Copy After:=Sheets(Sheets.Count)
            With ActiveSheet
                .Name = MyCell.Value
                .Range("B25").Value = MyCell.Value
                    For i = 0 To 8
                       .Range("G28").Offset(i).Value = MyCell.Offset(, i + 1).Value
                    Next i
            End With
    Next MyCell
    
    
Application.ScreenUpdating = True

End Sub

i have attached a example document of my spreadsheet with the above code added

Example2015 (1).xlsm
but i need to add to it so it copys names and addresses from another sheet at the same time as copying the data from summary is this possible