Looping Macro to cut rows based on value and paste them into new sheets

Hi all,

I am working on a project that requires me to sort some data ready to be loaded into a database.

The initial data comes with a series of field headers for each 'DATA_TYPE' and the corresponding records for that data type below. There is then a blank row, and then the layout is repeated for the next relevant data type...and so on. (please see sample sheet)

I am looking to create a macro that will start from cell A:A and work down the sheet cutting all data of a particular type to then paste it into a newly created sheet. Ideally this sheet will be named based on the corresponding 'DATA_TYPE#' value (again please see sample sheet)
Once that particular Data type has been pasted into the new sheet, the process should repeat for the next type...and so on.

This process should repeat until each different data type (along with 'TITLE' row) has been pasted into its own sheet.

*As the data i receive will be split at random row intervals each time(eg, if DATA_TYPE1 happens to have 5 entries instead of 3 then DATA_TYPE2 will be shifted down) the macro will need to be based upon where blank rows are, not necessarily where new data types start in the sample document*

I would appreciate any and all guidance that you are able to offer.

Thank you.

Sort_data_test1.xlsx