Excel VBA cut and paste range repeatedly (varying range determined by a specific string)

Question

Below is a VBA code for cut and copy a range repeatedly with a set blocksize(row count) which I was advised.

It works perfectly, however, now I have a data with varying b