Compare cell to cell in previous row

Hi there I am hoping to get some help translating what I have below into functional code. The goal is to start at B2 and go down the column checking every cell to the next one and if they are different insert cells above between A:E, if they are the same continue moving down. Any imput would be greatly appreciated. Thanks!

Dim Check_Row As Long
Dim Last_Row As Long

Check_Row = B2  //Will always be B2
 
LastRow = Cells(Rows.Count, "B").End(xlUp).Row

While Check_Row<Last_Row

    if Check_Row != (Check_Row+1)
        Range("A" & Check_Row & ":" & "E" & Check_Row).Select
        Selection.Insert Shift:=xlDown
        Check_Row+1
    else
        Check_Row+1