Boa tarde a todos.
.
O código abaixo funciona perfeitamente no Excel 2003, mas quando tento usa-lo no Excel 2000 (do trabalho) dá erro nesta linha --->>> Selection.Insert Shift:=xlDown ... e abre para depurar !!!!!
.
Alguém pode dar uma luz??
.
O que o código faz ... copia parte de uma planilha e cola valores e formatos em outra, mas sempre em cima do mês anterior ... ou seja, no final do ano terei os 12 meses, com o último sempre em cima !!!
Obrigado.
.

Option Explicit

Sub CopiaRange()
Dim sh As Shape
    Application.ScreenUpdating = False
    
    'Seleciona e coia range desejada
    Range("A1:AS91").Select
    Selection.Copy
    
    'Seleciona planilha para colar dados copiados
    Sheets("acumulado").Select
    Rows("1:1").Select
    
    'Insere as linhas copiadas, assim a ultima copia fica sempre na primeira linha
    Selection.Insert Shift:=xlDown
    
    '"Apaga" as formulas, mantendo apenas os dados
    Range("A1:AS91").Select
    Selection.Copy
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                :=False, Transpose:=False
    Range("A1").Select
    
    Application.CutCopyMode = False
    
    'Apaga o botão de macro na planilha acumulado
    With Sheets("Acumulado")
        For Each sh In .Shapes
            If sh.Name Like "Button*" Then sh.Delete
        Next
    End With
    
    '"Volta" à planilha inicial
    Sheets(1).Select
    Range("A1").Select
End Sub