Delete blank rows between data rows, shift rows up, then repeat

Hello!

I have data in the rows 2, 16, 32, 46, 59, 71. The other rows are blank

Now I want to do the following: delete 3 blank rows and shift all rows up, then delete another 3 rows between 16 and 32 and shift the rows up and the same process again between 32 and 46, 46 and 59 and so on. I have more data (it doesnt end in row 71), so the process should continue to do this.

So the basic idea would be: delete 3 blank rows between the first two data rows, shift the rows under the deleted rows up, then move on to the second and third data row and delete another 3 rows, and so on.

Do you have any ideas on how to do this?

Thank you very much,

excelactuary

This code did the trick:

Please Login or Register  to view this content.