Is There A Macro To Transfer A Row Of Data From Top To Bottom Row Of Range ?

I have a s/s encompassing over 350,000 rows.

Data consists of a series of ranges from columns A:N and rows varying in number between 3 and 30.

There are two blank lines between each range of data.

Each range is (with exception) numerically ordered down column H (e.g, 1, 2, 3, etc).

Problem: there are around 1100 occasions when a range contains a row of data which is to be disqualified from consideration. On these occasions the data always appears in the top row of the range and is identifiable in column H by the nine codes 111, 222, 333, 444, 555, 666, 777, 888, and 999).

I wish to find a macro which will :

1. where the top row of a range in column H is one of the codes 111 to 999, transfer that row of data to the bottom of the range.

2. delete the now empty top row from which the transfer was made from.

3. insert a new blank row at the bottom of the range below the row which the data was transferred to (in order to maintain the two blank rows above and below each range).