Copy few cells from active row to next row at desired locations

Hi Everyone,

I want a macro which copies the text of specified cells of the active row to next row at specified places. for eg. If I am in Row 2 the macro should do the following:
Copy B2 to B3
Copy C2 to C3
Copy D2 to E3
Copy E2 to D3

As shown in attached image:
1.jpg

Thanks