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

Maybe?

Sub am_hawk()
Range("B2").Select
Do Until ActiveCell.Value = ""
    If ActiveCell.Value <> ActiveCell.Offset(1).Value Then
        Range(ActiveCell.Offset(1, -1), ActiveCell.Offset(1, 3)).Insert
        ActiveCell.Offset(1).Select
    End If
    ActiveCell.Offset(1).Select
Loop
End Sub

Worked perfectly, I am just curious how would I insert an entire Row? Currently I'm using the offset values to determine the location of the inserted cells like you have shown. I just tried

Range(ActiveCell.Row, ActiveCell.Row).Insert

but I received runtime error 1004 Method 'Range' of object'_Global failed. Any advice on how to insert a row?

Maybe:

Sub am_hawk()
Range("B2").Select
Do Until ActiveCell.Value = ""
    If ActiveCell.Value <> ActiveCell.Offset(1).Value Then
        ActiveCell.Offset(1).EntireRow.Insert
        ActiveCell.Offset(1).Select
    End If
    ActiveCell.Offset(1).Select
Loop
End Sub

Thanks for the help! Much appreciated.

You're welcome. Glad to help out and thanks for the feedback.