|Try this code.|
Note: The code assumes that your data is in Column A.
If the data is in some other column, just change all the "A"s to match the correct column letter.
'Determine last cell with data in Column A
lastRw = Cells(Rows.Count, "A").End(xlUp).Row
'Loop through cells in reverse order, inserting a Row _
'at each change in data
For rw = lastRw To 2 Step -1
If Cells(rw, "A") <> Cells(rw - 1, "A") Then
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.
message edited by DerbyDad03