Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 10 Then

Planilha1.Range("d5").Value = ActiveCell.Value (isso dá certo, mas pega o valor de qualquer célula), preciso que pegue somente de células específicas.

End If
 

End Sub