Sort row data on another sheet and into different columns based on criteria

Hello everyone,
I've been looking by several posts here and around, to find a solution about how to sort out using a VBA code to copy from a main list, to a secondary sheet where there are 2 different ranges classified as Expenditures and Incomes. Each range contains several columns with the reference of the product and other data.
I'd be interested to do as this way instead of using filters (which only show a single list) to make more comprehensive the data of concrete periods, considering the main list comes out from a previous advanced filter. Also I'd like to know if there are any solution to skip certain colums which don't apply either in one or another range but they apply in the opposite range. I think in the attached file will be easier to understand, the example of the desirable output of the macro is located in the Sheet2.
The most similar example I've found is to sort out the data contained in a main list into different sheets instead of dividing a secondary sheet into several ranges (in that case just 2).

The code I've been working and trying with is this:

Please Login or Register  to view this content.

I hope you can help, any suggestions will be welcome. So thank you very much in advance.

Try

Please Login or Register  to view this content.