Need Help with the Following Macro--Copy & Paste

[rsrasc]

Hello all,

I'm using the following macro to copy and paste information from one file having approximately 15 tabs to other files.


Like I said, the source file has approximately 15 tabs. In every tab I have the following information in Column A. The following information is listed in Column A. Of course, Column B through Column J has the monthly summary for these accounts. Column B has the information for Oct, Column C for Nov, and so on.


44825 Circulation-Exercises/Maneuvers-Gross Sales (Sun)
45110 Circulation-Direct Drops-Gross Sales
45125 Circulation-Direct Drops-Gross Sales (Sun)
54120 Promotions-Events
54130 Promotions-Promotional items
55120 Delivery Contracts-Contract Deliverers
55410 Remote Printing-Printing
55430 Remote Printing-Inserting
55700 Outside Services
56753 Rent (Lease)-Contract Services
56820 Remote Offices-Utilities
57340 Maintenance and Repair-Equip Service Contracts


Basically, I need help with this macro so I can copy only the numbers starting with 5XXXX to the workbooks having a copy destination to the expense files listed in the macro and the ones starting with 4xxxx to be copy to the revenue files.

The macro currently in use is working as intended but if someone can help with the macro to copy only the 4's and the 5's separately that will be great and will save me a lot of time.


Thank you in advance for your assistance.

Cheers!

Sub CopyingFinancialInfo_SSX()
Workbooks("FY 23-SSX-YTD Actuals-Oct 22-Sep 23-Revenues and Expenses-Dec 22.xlsm").Sheets("025-ENGAGEMENT-F").Range("A8:J90").Copy 
Destination:=Workbooks("025 FY 2023 Expenses-SSX-Budget.xlsx").Sheets("FY 23 Actual + Reforecast").Range("A10:J90")
Workbooks("FY 23-SSX-YTD Actuals-Oct 22-Sep 23-Revenues and Expenses-Dec 22.xlsm").Sheets("102-CIRC DIR-IF-F").Range("A8:J90").Copy
Destination:=Workbooks("102 FY 2023 Expenses-SSX-Budget.xlsx").Sheets("FY 23 Actual + Reforecast").Range("A10:J90")
Workbooks("FY 23-SSX-YTD Actuals-Oct 22-Sep 23-Revenues and Expenses-Dec 22.xlsm").Sheets("178-CIRC - IRAQ-F").Range("A8:J90").Copy
Destination:=Workbooks("178 FY 2023 Expenses-SSX-Budget.xlsx").Sheets("FY 23 Actual + Reforecast").Range("A10:J90")
Workbooks("FY 23-SSX-YTD Actuals-Oct 22-Sep 23-Revenues and Expenses-Dec 22.xlsm").Sheets("180-CIRC -KUWAIT-F").Range("A8:J90").Copy
Destination:=Workbooks("180 FY 2023 Expenses-SSX-Budget.xlsx").Sheets("FY 23 Actual + Reforecast").Range("A10:J90")
Workbooks("FY 23-SSX-YTD Actuals-Oct 22-Sep 23-Revenues and Expenses-Dec 22.xlsm").Sheets("181-CIRC-BAHRAIN-F").Range("A8:J90").Copy
Destination:=Workbooks("181 FY 2023 Expenses-SSX-Budget.xlsx").Sheets("FY 23 Actual + Reforecast").Range("A10:J90")
Workbooks("FY 23-SSX-YTD Actuals-Oct 22-Sep 23-Revenues and Expenses-Dec 22.xlsm").Sheets("182-CIRC - QATAR-F").Range("A8:J90").Copy
Destination:=Workbooks("182 FY 2023 Expenses-SSX-Budget.xlsx").Sheets("FY 23 Actual + Reforecast").Range("A10:J90")
Workbooks("FY 23-SSX-YTD Actuals-Oct 22-Sep 23-Revenues and Expenses-Dec 22.xlsm").Sheets("183-CIRC OTHER-F").Range("A8:J90").Copy
Destination:=Workbooks("183 FY 2023 Expenses-SSX-Budget.xlsx").Sheets("FY 23 Actual + Reforecast").Range("A10:J90")
Workbooks("FY 23-SSX-YTD Actuals-Oct 22-Sep 23-Revenues and Expenses-Dec 22.xlsm").Sheets("184-CIRC ERI-F").Range("A8:J90").Copy
Destination:=Workbooks("184 FY 2023 Expenses-SSX-Budget.xlsx").Sheets("FY 23 Actual + Reforecast").Range("A10:J90")
Workbooks("FY 23-SSX-YTD Actuals-Oct 22-Sep 23-Revenues and Expenses-Dec 22.xlsm").Sheets("190-CIRC-UAE-F").Range("A8:J90").Copy
Destination:=Workbooks("190 FY 2023 Expenses-SSX-Budget.xlsx").Sheets("FY 23 Actual + Reforecast").Range("A10:J90")
Workbooks("FY 23-SSX-YTD Actuals-Oct 22-Sep 23-Revenues and Expenses-Dec 22.xlsm").Sheets("191-CIRC-JORDAN-F").Range("A8:J90").Copy
Destination:=Workbooks("191 FY 2023 Expenses-SSX-Budget.xlsx").Sheets("FY 23 Actual + Reforecast").Range("A10:J90")
Workbooks("FY 23-SSX-YTD Actuals-Oct 22-Sep 23-Revenues and Expenses-Dec 22.xlsm").Sheets("350-EDITORIAL-F").Range("A8:J90").Copy
Destination:=Workbooks("350 FY 2023 Expenses-SSX-Budget.xlsx").Sheets("FY 23 Actual + Reforecast").Range("A10:J90")
Workbooks("FY 23-SSX-YTD Actuals-Oct 22-Sep 23-Revenues and Expenses-Dec 22.xlsm").Sheets("400-GEN & ADMINI-F").Range("A8:J90").Copy
Destination:=Workbooks("400 FY 2023 Expenses-SSX-Budget.xlsx").Sheets("FY 23 Actual + Reforecast").Range("A10:J90")
Workbooks("FY 23-SSX-YTD Actuals-Oct 22-Sep 23-Revenues and Expenses-Dec 22.xlsm").Sheets("178-CIRC - IRAQ-F").Range("A9:J90").Copy
Destination:=Workbooks("178 FY 2023 Revenues-SSX-Budget.xlsx").Sheets("FY 23 Actual + Reforecast").Range("A10:J90")
Workbooks("FY 23-SSX-YTD Actuals-Oct 22-Sep 23-Revenues and Expenses-Dec 22.xlsm").Sheets("180-CIRC -KUWAIT-F").Range("A8:J90").Copy
Destination:=Workbooks("180 FY 2023 Revenues-SSX-Budget.xlsx").Sheets("FY 23 Actual + Reforecast").Range("A10:J90")
Workbooks("FY 23-SSX-YTD Actuals-Oct 22-Sep 23-Revenues and Expenses-Dec 22.xlsm").Sheets("181-CIRC-BAHRAIN-F").Range("A8:J90").Copy
Destination:=Workbooks("181 FY 2023 Revenues-SSX-Budget.xlsx").Sheets("FY 23 Actual + Reforecast").Range("A10:J90")
Workbooks("FY 23-SSX-YTD Actuals-Oct 22-Sep 23-Revenues and Expenses-Dec 22.xlsm").Sheets("182-CIRC - QATAR-F").Range("A8:J90").Copy
Destination:=Workbooks("182 FY 2023 Revenues-SSX-Budget.xlsx").Sheets("FY 23 Actual + Reforecast").Range("A10:J90")
Workbooks("FY 23-SSX-YTD Actuals-Oct 22-Sep 23-Revenues and Expenses-Dec 22.xlsm").Sheets("183-CIRC OTHER-F").Range("A8:J90").Copy
Destination:=Workbooks("183 FY 2023 Revenues-SSX-Budget.xlsx").Sheets("FY 23 Actual + Reforecast").Range("A10:J90")
Workbooks("FY 23-SSX-YTD Actuals-Oct 22-Sep 23-Revenues and Expenses-Dec 22.xlsm").Sheets("184-CIRC ERI-F").Range("A8:J90").Copy
Destination:=Workbooks("184 FY 2023 Revenues-SSX-Budget.xlsx").Sheets("FY 23 Actual + Reforecast").Range("A10:J90")
Workbooks("FY 23-SSX-YTD Actuals-Oct 22-Sep 23-Revenues and Expenses-Dec 22.xlsm").Sheets("190-CIRC-UAE-F").Range("A8:J90").Copy
Destination:=Workbooks("190 FY 2023 Revenues-SSX-Budget.xlsx").Sheets("FY 23 Actual + Reforecast").Range("A10:J90")
Workbooks("FY 23-SSX-YTD Actuals-Oct 22-Sep 23-Revenues and Expenses-Dec 22.xlsm").Sheets("191-CIRC-JORDAN-F").Range("A8:J90").Copy
Destination:=Workbooks("191 FY 2023 Revenues-SSX-Budget.xlsx").Sheets("FY 23 Actual + Reforecast").Range("A10:J90")
With ActiveSheet
        .Cells.Font.Name = "Calibri"
        .Cells.Font.Size = "10"
End With
End Sub