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

[Excel Fox]

Why don't you simply try the paste method without the pastespecial method

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)
Call Macro1    
Application.ScreenUpdating = True 
End Sub