AutoCAD Visual LISP / AutoLISP :: Macro Block Inserts And Layers

Im currently creating a custom menu to insert blocks on request. I have set up the following macro which seems to work fine:-        

^c^c-insert;HVLV-UB610x125;;;;

However when pulling in a specific block the drawing the layer becomes 0.

Ive tryed adding this additional macro line before the above one which fixes the problem :-

^C^C-LAYER;M;E-LIGHTING-CEIL;C;R;;;ORTHOMODE;1;^c^c-insert;HVLV-UB610x125;;;;

However now the block retains its layer properties ......ie  E-Lighting-Ceil (or what ever I name it) but it drops the block

in RED, instead of its original colour.

Question is Im looking for a macro that will bring in my block as per ^c^c-insert;HVLV-UB610x125;;;;

but also bring it in to a drawing on its original layer that its saved to.

please note that even thou the first code brings it in at layer 0, the blocks layer is also inserted into the DWG however its just not associated to it ..... hence the user has to select the block once he or she has brought it in and then change the layer from the layers manager manually. This is not ideal.

just to recap i just need a macro that will A) bring in a block from a location. And B) keep all the properties it has when it is brought in.