Trim the SectionView

[Anonymous]

Now I have a section view  as above, If I want to a part of the section view, how can I do with VBA

Iwant the result as figure 2.

[Anonymous]

This is the orgin figure