Macro to simulate hobbing

I have created a code to simulate hobbing process by looping set of features, it works fine until I use combine feature. Pls help me to complete this code.

Gear - 2.SLDPRT (275.1 KB)
Macro1.swp (66.5 KB)