Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 7 Then
Range("K4") = Cells(Target.Row, 7).Value
Range("K2") = Cells(Target.Row, 4).Value
End If
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 7 Then
Range("K4") = Cells(Target.Row, 7).Value
Range("K2") = Cells(Target.Row, 4).Value
End If