Find next Blank row in a Cell If a condition is met

Hi All,
This forum has provided me great help over the past few months but I cannot find a solution to the below problem I have
Basically I have a file that is sorted by date. Basically if the value in column A has the name Immediate, I need to cut and paste this into the row after the first blank row (as this sums up the total for that day - i need to take immediate out of that subtotal and add the row seperately in the row after where it is subtotaled)
Immediate snapshot.PNG

Thanks for the extra quick response Bishonen. basically I want it to loop until the very last row in the file, could be row 10,000.. Attached is the before and after picture
Take Immediate from row 4 and paste it into row 9 (Basically if the value in column A has the name Immediate, I need to cut and paste this into the row after the first blank row) - CORRECT
Take Immediate from 14 and paste it into 25 or 9 again? (both is basically one row after an empty row). - Paste it into Row 25
Sample File.xlsx

Hi Bishonen.
That was quick!!
Getting a Debug error on the below line
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row

That has fixed it.. Bishonen my fiend - you are a legend and saved hours of heartache!!!