Makro to move objects to two seperate layers

Hi. 

Is there a way to make a macro to seperate objects to seperate layers? 
It seems that corel already recognized that the objects are different. (but iam not experience in making macros)