Cell not equal to previous cell?

[sweedey]

Sub SalesOrderChange()
    Range("B2").Select
    Do Until IsEmpty(ActiveCell)
        Dim rng As Range
        Set rng = ActiveCell
        If ActiveCell <> ActiveCell.Offset(-1,0)

My current and INCOMPLETE code is posted. I am new to VBA and what I am doing should be simple but I am apparently not using the correct syntax. I want to go through a list and every time the number in the cell I am currently in (my active cell) is not equal to the number in the same column in the row before it I want to add 2 rows afterwards. Otherwise I want to check the next row down and see if it is equal to the row before it.

In non vba is should look something like this:

Select Cell B2

Until empty
if Active Cell DOES NOT EQUAL Previous Cell (up one row, no column offset)
insert 2 rows
then select the cell 2 rows down, no column offset
else select the next Cell (down one row, no column offset)
end the loop

Let me know if this doesn't make sense