how get name of shape and copy them to other for example layer

hi there :D

i have one shape inside on layer

i need to take name of shape and copy them to layer how can i do this in macro 

best regard