Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 1 Then
With Sheets("document")
Union(.Range("D1"), .Range("C10")) = Target
.Range("B13") = Target.Offset(0, 1)
.Range("B15") = Target.Offset(0, 2)
End With
End If
End If
End Sub