Este fórum está sendo desativado

[marlonsarturi]

Bom dia pessoal, não sei muito bem fazer, macro estou tentando aprender...
Esse código é para fazer cadastro de produtos.
Esta me gerando um erro " Erro em tempo de execução '1004': O metodo insert da classe range falhou.
Alguem poderia me dar uma dica de correção deste código e se possivel uma breve explicação do que eu errei, para que, eu possa aprender e não errar novamente.

Obrigado.

Dim codigo As Integer
codigo = Plan23.Range("B1").Value + 1 ' A variaval codigo recebe o valor que esta na planilha estoque Celula "B1" + 1
Plan23.Range("B1").Value = codigo ' O valor da celula "B1" é igual ao codigo
If Plan22.Range("C4") = "" Then
MsgBox " Informe o produto"
Else
Plan23.Activate ' Ativa a planilha estoque
Rows("4:4").Insert ' Inseri uma linha na linha 4
Plan23.Range("A4") = codigo ' Na planilha estoque a celula "A4" recebe o valor de codigo
Plan23.Range("B4") = Plan22.Range("C4").Value ' Recebe valor da descrição
Plan23.Range("C4") = Plan22.Range("C6").Value ' Recebe o codigo paralelo
Plan23.Range("D4") = Plan22.Range("C8").Value ' Recebe o codigo original
Plan23.Range("E4") = Plan22.Range("C10").Value ' Recebe o preço de Custo
Plan23.Range("F4") = Plan22.Range("C12").Value ' Recebe a quantidade add ao estoque
Plan23.Range("G4") = 1.8 ' recebe o valor definido da margem de lucro
Plan23.Range("H4") = "=E4*G4" ' calculo matematico
Plan23.Range("I4") = "=row()" ' formula que inseri o numero da linha
Plan22.Activate ' Ativa a planilha cadastro
Range("C12") = "" ' limpa o conteudo da celula
Range("C10") = "" ' limpa o conteudo da celula
Range("C8") = "" ' limpa o conteudo da celula
Range("C6") = "" ' limpa o conteudo da celula
Range("C4") = "" ' limpa o conteudo da celula
End If
End Sub

[marlonsarturi]

Estou postando a planilha na que esta me gerando o erro pessoal, porque fiz o mesmo código porem em nova pasta de trabalho e deu certo.

Se puderem me ajudar fico muito agradecido.