VBA to enter x number of blank rows by group

I have a rows of data and I want to group similar data into groups of 6 rows for each. For example my data in column A is a follows:


123
123
123
39000
39000
54
6000000
5000
5000
5000
5000

My desired output is as follows:
123
123
123
[blank row]
[blank row]
[blank row]
39000
39000
[blank row]
[blank row]
[blank row]
[blank row]
54
[blank row]
[blank row]
[blank row]
[blank row]
[blank row]
6000000
[blank row]
[blank row]
[blank row]
[blank row]
[blank row]
5000
5000
5000
5000
[blank row]
[blank row]

As you can see, if a group has 3 line items, insert 3 blank rows below. If a group has 4 line items, insert 2 blank rows below and so on.

Hi Maac,

I do not get the logic of inserting the blank row
If a group has 3 lines, insert 3 lines
If a group has 4 lines, insert 2 lines
so what happened if a group has 1 line? do u insert 4 lines (your picture showing 5)
and if a group has 6 lines, how many blank line you required?

Cheers
Lex

my mistake....if 1 line, insert 5 lines. If 6 lines, insert no lines. Thanks

alternative

Please Login or Register  to view this content.