VBA Macro to create planes

Hi,

I need a macro to create planes inside subassemblies that are coincident to the Front and Right planes of the top assembly. Can anyone help?