VBA code to seperate the data into different sheet based on column 4

Hi,

I'm having trouble of separating thousands of rows into separate sheet based on the fourth column,Policy Name.
Attached is an example of my data.
I would also like to rename the sheet into the Policy Name


Thanks in advance.

macro.xlsx