Help to create a worksheet selection change event code

Afternoon,

Can anyone help me with a worksheet selection change event code?

It needs to be when I click in the range B1:B400 it runs CopyActiveCell (my own macro) and when I click in the range D1:D400 it runs CopyActiveCell1 (note the 1).

Thanks, let me know if you need anymore info.