** Selective Cut and Paste - Cutting and Pasting Rows if a Row has Key Word in Column

So I have data that comes in with each row being a different instance. Each row has data in the same columns. My problem is that some of the data needs to be cut and pasted one row below a summary row (which is below the rest of the data with 1 row separating the data and the sum row). There is sometimes no data that needs cut and some times a lot - all rows that contain a specific keyword in the B column need to be cut and moved.

Do you know how I can do this using VBA? I would like to make it so it does it until all are removed, then stop without erroring.

Thank you!