VBA : insert blank rows between base upon count of each rows with criteria..need help??

i have code for "insert blank rows between base on count of each rows", see this below :

Please Login or Register  to view this content.

how to easily adapt/create new code with criteria this below :

- base upon count of of each rows with assuming, if count of rows = 0 or 1, nothing inserted row;
- if count of rows >= 2, inserted row minus 1, for example :
count of row = 2.....result inserted row = 1
count of row = 3.....result inserted row = 2
count of row = 5.....result inserted = 4
etc....

i hope somebody would help me.. i'am a newbie...

regards...
jhon mustofa