Move sheets to another sheet if condition meets

[sur]

Hello Team,

I have workbooks stored in the folder with the different names, i have to create a master out of those in one workbook.

Workbooks stored in the folder contains name starting from
Apples_x.xlsx
ddd_Apples_Y.xlsx
CCC.Apples.xlsx
Grapes_dd.xlsx
Grapes_PP.xlsx

Each workbook contains one sheet.

Problem:

I have a master workbook, which has sheets names (Apples, Grapes & Oranges) accordingly.

Currently i have create a macro to the append the data of the workbook_Sheets, to the master workbook accoringly to sheets name.