Este fórum está sendo desativado

[luisfmello90]

Boa noite a todos, estou fazendo uma planilha de calculo perito, porem minha planilha esta apresentando um erro na hora de executar o macro de adicionar linha. Se possível alguém me ajudar vou estar deixando as linhas de comando aqui para que alguém consiga me dar uma luz no meu erro.


____________________________________________________

Sub InserirLinha()
'
' Macro para inserir linha
x = ActiveCell.Row
Cells(x, 1).Select 'seleciona pimeira celula
x = ActiveCell.Row 'x=1

If Cells(x, 10).Value = "p" Then
If Cells(x, 1).Value <> Cells(x - 1, 1).Value Or Cells(x, 11) <> "p" Then

ActiveCell.EntireRow.Insert 'insere linha

'copiando num de dias
Range(Cells(x, 2), Cells(x + 1, 2)).FormulaR1C1 = "=RC[-1]-R[-1]C[-1]"

'copiando indices
Cells(x + 1, 3).Select
Selection.Copy
Cells(x, 3).Select
ActiveSheet.Paste
Application.CutCopyMode = False

'copiando correção
Range(Cells(x, 5), Cells(x + 1, 5)).FormulaR1C1 = "=Rc[-3]*Rc[-2]*R[-1]c[4]"

'corrigir somente pela primeira vez valor em R$ abaixo da inserida
If Cells(x + 1, 11) <> "*" Then Cells(x + 1, 8).FormulaR1C1 = "=SUM(R[-1]c[-3]:RC[-3])"

'adicionando o marcador
Cells(x + 1, 11).FormulaR1C1 = "*"


'adicionar aqui formula de juros - final do mes
Cells(x, 6).FormulaR1C1 = "=(R[1]c[-5]-Rc[-5])*(R4c11)/365/100*(Rc[2]*(1+(R[1]c[-5]-Rc[-5]*Rc[-3]))"

'escrever linha
Cells(x, 7).FormulaR1C1 = "Linha"

'corrigir saldo devedor
Range(Cells(x, 9), Cells(x + 1, 9)).FormulaR1C1 = "=R[-1]c+Rc[-1]"

'Selecionar DATA para encerar
Cells(x, 1).Select
Selection.Locked = False
Selection.FormulaHidden = True


End If
_____________________________________________________________________

[osvaldomp]

Olá, @luisfmello90 .

Sugestão: disponibilize uma amostra do seu arquivo Excel com o código instalado (imagens não servem).
Informe também, ao ocorrer o erro, clicando em Depurar, qual a linha do código que é destacada em amarelo?