Problem with macro to copy a text box with image into multiples files using Quick Access T

Hi,
I'm a very basic user and over time have developed an invoicing system for my business which is much faster to use than other small business accounting software.

I would like to be able to write a "Market Update" (which incorporates a clipart image) in a text box in one Excel file, ( "Market News Flash") then simply press a Quick Access Toolbar icon when using the invoice file for each customer (" Invoice Template").

I tried using the record macro function however this did not work. I then tried to modify per suggestions from internet etc (non-specific). The code used is:

Windows("Market News Flash.xlsx").Activate
    ActiveWindow.WindowState = xlNormal
    ActiveWindow.WindowState = xlNormal
    ActiveSheet.Shapes.Range(Array("Group 8")).Select
    Selection.Copy
    Windows("Invoice Template.xlsm").Activate
    ActiveWindow.WindowState = xlNormal
    ActiveWindow.WindowState = xlNormal
    Range("B35").Select
    Selection.Paste
    Range("B33").Select
    ActiveWorkbook.Save
End Sub

The resulting error is "Run-Time 438 Object doesn't support this property or method" Too be honest I thought this would be a basic copy/paste macro but 2-3 hours later I'm still struggling.
Would greatly appreciate any help.
Cheers from Oz

How about this?

This assumes both workbooks are open.

Sub Temp2()
Dim WB1 As Workbook
Dim WB2 As Workbook
Dim Shp As Shape

Set WB1 = Workbooks("Market News Flash.xlsx")
Set WB2 = Workbooks("Invoice Template.xlsm")

Set Shp = WB1.Worksheets(1).Shapes("Group 8")
Shp.Copy

WB2.Worksheets(1).Paste

With WB2.Worksheets(1).Shapes(WB2.Worksheets(1).Shapes.Count)
        .Top = Range("B38").Top
        .Left = Range("B38").Left
    End With

End Sub