Excel Erro em tempo de execução 1004

[Luciano Piccolo Neto]

Olá pessoal boa noite. Sou novo aqui no fórum e se possivel peço por favor a ajuda de vocês para me ajudar a resolver um erro que esta ocorrendo na minha planilha de controle de almoxarifado. Criei um formulário para lançar dados e os mesmos serem salvos em outra planilha, porém aparece a mensagem quando vou salvar a macro.

Desde já obrigado pela ajuda e apoio.

 

Erro em tempo de execução 1004 Esta operação não é permitida. A operação está tentando descolar céculas em uma tabela da planilha.

 

Sub SALVAR()
    
Dim material    As String
Dim conta       As String
Dim qtde        As Integer

material = form_saida.Range("C15").Text
conta = form_saida.Range("H21").Text
qtde = var.Range("B2").Value

Application.ScreenUpdating = False

If qtde = 0 Then

MsgBox "Existem dados obrigatórios não preenchidos. Verifique.", vbCritical, "Dados ausentes"

Else

If material <> conta Then

MsgBox "Verifique o tipo de material e a conta. Divergência foi encontrada.", vbCritical, "Erro"

Else
    
    Sheets("SAÍDAS").Select
    Rows("3:5").Select
    Selection.EntireRow.Hidden = False
    Range("A4:AA4").Select
    ActiveWindow.SmallScroll ToRight:=2
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 3
    Selection.Copy
    Rows("5:5").Select
    Selection.Insert Shift:=xlDown
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Rows("4:4").Select
    Selection.EntireRow.Hidden = True
    Range("B8").Select
    Sheets("FORMULÁRIO SAIDA DE MATERIAL").Select
    Range("B5,E5,C7,C17,C19,C21,C23,H23,C25,H25,C27,C29,C31").Select
    Range("C31").Activate
    Selection.ClearContents
    Range("B5").Select

MsgBox "Dados salvos com sucesso.", vbInformation, "Dados gravados"

End If
End If

Application.ScreenUpdating = True

End Sub

 

Print erro excel Controle de almoxarifado.docx

[Visitante]

Sugestão: disponibilize uma amostra do seu arquivo Excel com alguns dados e informe com exatidão em que condições o erro ocorre.