Macro to go row by row and insert row above based on criteria

So I'm hoping to code into my macro a part that will go row by row in column 1, and if the value in activecell=the cell above it does nothing, and if the values do not equal it adds a line.

The row in question is ranks of customers, now in as values not formulas, and some customers have more than one listing so the column goes 1,2,3,4,4,4,5,6,6....

my end goal is to make a macro that I can add to the current script that gets me to this list that will go down and insert a row to split the numbers into subgroups with a blank row after each group, than I'll have it run up and fill in sums for each group.

Thoughts?

Thanks in advance.