Create new segment with macro

[oskr989]

Hi there!

I am sorry for the title, I think it isn't quite clear.
So, could you please give a hand writing a macro that inserts a copy of a segment, without erasing the previous segment, here is a example of what I need:
Before macro:

After macro:

Thanks in advance for your help.

 

[VoG]

Maybe

columns("p:r).copy
range&(P1").resize(3).entirecolumn.insert

 

[oskr989]

Works perfect! Thanks a lot!