Excel macro to Word document

Hi
I have a costing sheet in excel that generates a quote within another sheet, however the people thatwill be using it don't what the quote done in excel, they want it in word. So I am looking for a macro that will do this.
So far I have found one and it works as I need it to,but I need some alignment code as it copies everything to word and its all over the place. Any ideas?

Const strRangeToCopy As String = ("print_area")


Sub Macro8()

    Dim appWord As Object

    Range(strRangeToCopy).Copy

    On Error Resume Next
        Set appWord = GetObject(, "Word.Application")
    On Error GoTo 0
    If appWord Is Nothing Then Set appWord = CreateObject("Word.Application")

    With appWord
        .Documents.Add
        .Selection.Paste
        .Visible = True
    End With

End Sub

Has anyone got any ideas on the format issue? Or is there another way around this?
Kieran