Trying to Clean Up / Simplify Macro While keeping functionality

Hi There,

So I created this macro and it works flawlessly, however its pretty lengthy. I was wondering if there is anyone that could possibly help me clean this up or simplify it so its not as long while also making sure it keeps its functionality and works like a charm. The role of this macro is to use "raw" data on an exported spreadsheet and determine which tab the lines need to be moved to and then create pivot tables on two of the tabs, using pivot tables then perform text to columns and eventually move to a new sheet where an journal entry is created to be uploaded to move those items from one GL account to another.

I haven't been able to add the reclass portion yet, but if you would to take a stab at it, all items in the "ClientReclassSummary" pivot table need to be reclassed to acct 61000101 using the opposite posting "key" of what is listed on "summary" for those lines.. so if its 40 on lines in "key" it needs to be 50 for 61000101 on the entry tab and vice versa. the reclass lines also need to be below the originally pasted "client reclass" lines on entry tab keeping all information on those line except changing the acct # and posting key to be opposite of original but making sure not to override the pasted data from "Non-Client Reclass" pivot. Any help with this would be greatly appreciated. If you also need any more info from me to help let me know .

Thanks!

Sub TravelExpenseAnalysis().txt

Administrative Note:

Post the code in the thread wrapped in code tags, please.

Is your forum profile up-to-date and showing ONLY the oldest Excel PRODUCT that you need this to work for?

Members will tailor the solutions they offer to the Office PRODUCT (Excel, NOT Windows) that you have. Please check that your forum profile is up-to-date in this respect. If you aren't sure, in Excel go to File | Account and report what it says below the MS logo at the top of that page. If your product is for Mac, please also state this.

The four most recent Excel products are Excel 2019, Excel 2021, Excel 2024 and MS365 - if you are using MS365, please give this name along with the version number in your profile (e.g. MS365 Version 2306). This is in the About Excel section further down the Account page.

Thanks.

Remove the URLs from the code.

OK - leave it as a TXT file, then.

Might be useful to attach the workbook, too.

Can you not make a copy and desensitise it?