Macro to Copy Var. Ranges to Var. Rows

[Cmims]

Macro to copy Var. Ranges to Var. Rows
a b c d
1 100 first 5000 0
2 100 sec. 4000 1
3 100 thr 2000 2
4 101 fif 50 0
5 101 six 250 1
6 101 sev 1000 2
7 101 sev 1000 3

If D1 is zero - no action
If D2 is 1 - Copy {B2 to C2) to E1
If D3 is 2 - Copy (B3 to C3) to G1
If D4 is zero - no action
If D5 is 1 - Copy (B5 to C5) to E4
so on and so on

The E column can go up to 14. The marco needs to read to the end of the
spread sheet for last row.

This is short and sweet. I can provide more detail if required.

Thank you