Boa tarde!!

Tente..

Considerando que o código está dentro do módulo de planilha ("Plan1")

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 1 Then Exit Sub
Cancel = True
With Sheets("Plan2")
Target.EntireRow.Copy .Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row + 1)
End With
End Sub

Att

Dando uma pesquisada nos foruns aqui e nos gringos.. acabou ficando assim o código.

Muito obrigado pela ajuda!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D3:D114")) Is Nothing Then
    Cancel = True
    Target.Copy
    Sheets("PLANEJAMENTO").Range("D1").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Sheets("PLANEJAMENTO").Select
End If
End Sub