Splitting The Exp & Rev in different sheets

I have created a VBA macro to split the Trial Balance, my goal is to put the exp in one sheet and Rev in another sheet. the point is to make it easy to use the data to carry on with my analysis.

Thanks!