Copy/Paste Categories with Totals

Scenario:
Main Ledger sheet that has 4 columns and copies the rows to the respective "category" sheets. The 4 columns will appear the same on each category sheet and will be sorted by date. I have gotten the code working for only one category, but when I try to add in another category, the code breaks on ActiveCell.Offset(1, 0).Select in the Vehicle-Truck category. I'm a novice in Excel, but do have a programming background. It seems to me that the offset is trying to go down a row, but the ActiveCell is already at the bottom of the sheet. I appreciate any help!! Thanks.

Please Login or Register  to view this content.

Hi deltf97

Change this line of code from

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

and it should work.

You may wish to consider what to do if there are no entries in a given Category.

John

The macro recorder code needs to not teach you bad habits, like "selecting" and "activating" to get data moved. Also, you can use the Data > Filter > Autofilter to mode this data pretty easily.

Please Login or Register  to view this content.

If you leave the two entries I put in E1:F1 on the Ledger sheet, you can take out that last section of code since the totals will already be there on each sheet.

If that takes care of your need, please click EDIT in your original post, click GO ADVANCED and set the PREFIX box to SOLVED.