Hey,
I have just the thing!
I am a Macro novice so please don't expect me to be able to explain how this works.
If you create a button and assign this macro to it, when clicking the button it will export everything between two cells into a word document (as an image).
The important bits you've got to worry about are:
Set wd = wdApp.Documents.Open("C:\test.doc") - c:\test.doc is the location of a word document (you have to set this up).
Range("A1:G22").CopyPicture xlScreen, xlPicture - The Range between cells is what is coppied.
Sub PasteToWord()
Dim wdApp As Object
Dim wd As Object
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0
Set wd = wdApp.Documents.Open("C:\test.doc")
wdApp.Visible = True
Range("A1:G22").CopyPicture xlScreen, xlPicture
wd.Range.Paste
End Sub
Hope this helps!