Qual o codigo que esta aparecendo o erro.

Sub salvar1()
'
' salvar1 Macro
'

'
Sheets("Relatorio_Despesas").Select
Rows("4:6").Select
Selection.EntireRow.Hidden = False
Rows("5:5").Select
Selection.Copy
Range("A6").Select
Selection.Insert Shift:=xlDown **Erro esta Aqui****
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A5").Select
Application.CutCopyMode = False
Rows("5:5").Select
Selection.EntireRow.Hidden = True
Range("A6").Select
Sheets("Despesas").Select
End Sub

Troque seu código... o problema é que vc está tentando inserir uma linha inteira, só na posição da célula A6.
Eu troquei a inserção para linha inteira e rodou:

Sub salvar1()
'
' salvar1 Macro
'

'
    Sheets("Relatorio_Despesas").Select
    Rows("4:6").Select
    Selection.EntireRow.Hidden = False
    Rows("5:5").Copy
    Range("6:6").Insert Shift:=xlDown
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A5").Select
    Application.CutCopyMode = False
    Rows("5:5").Select
    Selection.EntireRow.Hidden = True
    Range("A6").Select
    Sheets("Despesas").Select
End Sub

Boa tarde galera,

O que está acontecendo é que está filtrado.
Existe uma fórmula na linha 5 que vai inserir uma nova linha, copiar o valor da fórmula e manter a fórmula oculta.
Para simplesmente resolver esse "problema", basta remover o auto filtro ou limpar a condição do filtro, mas na minha humilde opinião, acho que deveria é reprogramar quase tudo ali...

Qualquer coisa da o grito.
Abraço

Problema Resolvido
Obrigado "Bernardo" a a todos do planilhando.com.br que me ajudarão
o problema era que eu estava inserindo a linha inteira, sendo que eu deveria apenas inserir os campos que eu queria.
Mas uma Vez obrigado a todos, fique quase maluco e nao achava.
Muito Obrigado.

O Bernardo Falou algo sobre o filtro.
Como Assim?
Realmente se eu tirar o filtro o problema para
Como eu resolveria isso?

Bom dia luizfelipe,

Segue uma atualização APENAS do "Salvar4".
Utiliza a mesma lógica nas outras.

Qualquer coisa da o grito.
Abraço

Luiz Felipe, vc usou o código que eu enviei ? funcionou ?

Bom dia luizfelipe,

Segue uma atualização APENAS do "Salvar4".
Utiliza a mesma lógica nas outras.

Qualquer coisa da o grito.
Abraço

Bom Dia Bernardo
Como que se faz deste modo?
eu so sei fazer daquele, e para ser sincero o seu e muito melhor

Luiz Felipe, vc usou o código que eu enviei ? funcionou ?

Bom Dia fernando.fernandes,
Sim eu usei, resolveu, mas na hora que eu adiciono o filtro volta a dar o mesmo erro

entao adapte o código para remover o filtro, executar e colocar o filtro novamente...

grave a macro da inclusão e remoção do filtro, para saber como fica...