Rearranging the contents of the worksheet based on the cell Value

I am working on an excel worksheet which contains a list of books along with their genre, stocks and sold. What I have been trying to get is to arrange the books based on their name using VBA in a new sheet. And for each collection of books I would like to have a row that counts the total for the stock and sold columns.Could anyone help me in the right direction in solving it?

Initial Worksheet:
testing.JPG

Final Worksheet:
result.JPG

I'd definitely go with PivotTable. So much easier to maintain and set up.

Just as sample here's code to rearrange data (no formatting).

Please Login or Register  to view this content.