adapt, copy paste with shapes, edges and values​​, to Excel2003.

[marreco]

Hi.
I need to copy paste with shapes, values ​​and edges but this code will be used in a Excel2003.

Sub copy_paste_with_shapes_values_and_edges()
Application.ScreenUpdating = False
   Sheets("Copia").Cells.ClearContents
   ThisWorkbook.Sheets("edital").Range("a7:m1000").copy
   Sheets("Copia").Range("A" & Rows.Count).End(xlUp).PasteSpecial xlPasteValues
   Application.CutCopyMode = False
   Call Macro1
   Application.ScreenUpdating = True
End Sub

Thank you!!!