Inserir Linhas e copiar fórmulas com referência outra aba

[RPreviatto]

Com o código abaixo incluo novas linhas e copia a fórmula da linha de cima.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False 'Desabilita atualização de tela
 ''ActiveSheet.Unprotect "1234" 'desbloqueia planilha
' declara as variáveis linha ei
  Dim i, linhas Como Variante
showInputBox:
    linhas = Application.InputBox("Quantas linhas você quer INCLUIR ?", Title:="Adicionar Linhas")

        
    Se linhas = Falso Então
        MsgBox ("Inclusão de linha(s) cancelada(s)!", vbOKOnly, "CANCELADO"
    ' ActiveSheet.Protect AllowFormattingCells:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowFormattingRows:=True, AllowDeletingRows:=True, Password:="1234"
        ActiveSheet.EnableSelection = xlNoRestrictions
        Fim
    Outro
        Se linhas = vbNullString Então
            MsgBox ("Campo Vazio Linhas. É necessário digitar um valor!"), vbOKOnly, "Adicionar Linhas"
     ' ActiveSheet.Protect AllowFormattingCells:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowFormattingRows:=True, AllowDeletingRows:=True, Password:="1234"
        ActiveSheet.EnableSelection = xlNoRestrictions

        Fim
            GoTo showInputBox
        Fim se
    Fim se
    
        Para i = 1 Para linhas
        Cancelar = Verdadeiro
 

        Target.Offset(1).EntireRow.Insert
        Target.EntireRow.Copy Target.Offset(1).EntireRow
        No Erro Retomar Avançar
        Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
            
        
        Proximo eu
     ' ActiveSheet.Protect AllowFormattingCells:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowFormattingRows:=True, AllowDeletingRows:=True, Password:="1234"
        ActiveSheet.EnableSelection = xlNoRestrictions
        
End Sub
[/CÓDIGO]

Ocorre que ao incluir 3 novas linhas na posição A4, as células B5, B6 e B7 não seguem a sequência pois referências as células de outra aba, no entanto as células E5, E6 e E7 estão corretas, talvez por haver fórmulas e texto(constantes)? conforme imagem Plano2.

Como resolver? sou leigo no assunto.

 

[RPreviatto]

Ocorre que ao incluir 3 novas linhas na posição A4, as células B5, B6 e B7 não seguem a sequência pois referências as células de outra aba, no entanto as células E5, E6 e E7 estão corretas, talvez por haver fórmulas e texto(constantes)? conforme imagem Plano2.

Como resolver? sou leigo no assunto.