Get Rows with highest value in a column

Hi

I have a spreadsheet with events data. I would like to get rows with the highest value of Business Criticality.

If there are more than one rows with hightest values i would like to get all those rows and copy into a new sheet in same workbook. I would like to get header rows in the new sheet as well.

Can some one please help with VBA for this?

Pls see attached sample data sheet. For example i would like to copy the three highlighted rows to a new sheet [As they are with highest business criticality 10 in the column]