Insert Row at Column value change and...

I am trying to add a row if the column value changes BUT I don't want to add the row if there is a blank row already between them. This is what column F looks like:

600015

638077
638077
638077
638077

620002
638002

600177
600177
600187
620017
700032

I want it to add rows only between values 620002,638002,600177,600187,620017 and 700032.

The script that I'm currently using adds an extra row between the others.
Dim lRow As Long
For lRow = Cells(Cells.rows.Count, "F").End(xlUp).Row To 2 Step -1
If Cells(lRow, "F") <> Cells(lRow - 1, "F") Then rows(lRow).EntireRow.Insert
Next lRow

I think the solution is simple, I'm just missing it. Please help. THANK YOU!!

I works perfectly! Thank you thank you!