Excel Interromper uma macro durante a execução de outra

[fcll]

Bom dia, pessoal

Estou precisando de ajuda para solucionar um problema no meu código.
O caso é o seguinte, tenho um evento na worksheet que é executando toda vez que seleciono uma célula. Ele serve para destacar a linha da célula selecionada. É um luxo, de certa forma, mas ajuda muito na visualização o pessoal aqui no trabalho que mexe com grandes tabelas de dados.

Além disso, tenho uma outra rotina que copia uma linha de dados de uma worksheet e copia nessa worksheet que tem o código de destaque da linha.
Acontece que depois que coloquei o código de destaque a rotina de cópia começou a parar, pelo que entendi, ela para porque ao selecionar a worksheet de destino, a rotina de destaque anula o copypaste.

Eu queria que ao executar a rotina de copia/cola, o evento de destaque da linha não fosse executado. Seria possível?
Alguém poderia me ajudar, por favor?
Desde já muito grato.

Tenho o seguinte evento na minha worksheet (Livro Caixa):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Dim LINHA As Long
    Dim AncAdress As Long
    
    LINHA = ActiveCell.Row
    If (LINHA > 1) Then
    
        If AncAdress <> 0 Then
            Rows(AncAdress).Borders(xlEdgeBottom).LineStyle = xlNone
            Rows(AncAdress).Borders(xlEdgeTop).LineStyle = xlNone
        End If
        
        Range("A" & LINHA, "S" & LINHA).Borders(xlEdgeBottom).LineStyle = xlDashDot
        Range("A" & LINHA, "S" & LINHA).Borders(xlEdgeBottom).ColorIndex = 3
    
        AncAdress = Target.Row
        
    	Else
    End If
End Sub

E um evento no FORM:

Private Sub Baixar_Lançamentos()

    Selection.Copy

Sheets("Livro Caixa").Select

        Range("A1").Select
        Do
        If Not (IsEmpty(ActiveCell)) Then
        ActiveCell.Offset(1, 0).Select
        End If
        Loop Until IsEmpty(ActiveCell) = True
    
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False

End Sub

 

[fcll]

Bom dia, pessoal

Para facilitar, caso alguém possa ajudar, em anexo o arquivo com o projeto montado.
Observem a Aba Instruções antes.

Grande abraço,

 

Transferência de Lançamento.rar