how to copy the sketch from one part to another?

I know the operation with GUI,

I want to the VBA code

Thanks