Bom dia!!

Tente assim

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A1:F100")) Is Nothing Then Exit Sub
    
    Cancel = True
    
    Worksheets("Sheet1").Range("D4") = Worksheets("Sheet1").Range("D4") & vbCrLf & Target.Value
    
End Sub

Insira esse código dentro do módulo de planilha.

Att

Muito obrigada pela dica.

Você poderia apenas me explicar a que se refere cada parte do código? Pois a planilha que coloquei era um exemplo, preciso colocar na planilha correta agora.

A solução que encontrei!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Application.ScreenUpdating = False

If ActiveCell.Column = 6 Or ActiveCell.Column = 13 Then

Sheets("Sheet1").Range("D14") = ActiveCell.Value

Sheets("Sistemas").Visible = False

End If

Application.ScreenUpdating = True

End Sub

Boa tarde!!

Conseguiu resolve?

Se sim, obrigado pelo retorno, marque seu tópico como resolvido!

Att