Need VBA code to Split Data move to target workbook sheet depend upon unique values

Dear experts

I have data which need to split data on column H:H depends upon uniques values in column



There are data set range between A:H depends upon H column values matching values data rows move to saved workbook

Those column values need to save to all sheet depends upon data set and sheet name
for e.g
CAT data set move to CAT sheet
COD data set move to COD sheet
IBM data set move to IBM SHEET
NFS data set move to NFS sheet
SCAM data set move to SCAM sheet
but
AP&AR data set move to sheet one sheet AP_AR sheet

at last in all data move to Batchsheet

i stored workbook at location drive. there is file called Billing_Naffco_Oct_2022.xlsx is my output result file.

find the attachments