putting rows between different values in first column

The following puts 3 row inbetween each value in column "A".

Cells(i, 1).Resize(3, 1).EntireRow.Insert

How can I change the sentence to state, insert 3 row only between values
that are not the same?


Thanks for any kind of help.

bdb