MACRO to Insert row in 'D' col after name changed.

Hi,Team

I need macro to insert blank row in D col after name changed for specific range or from specific row
I have attached sample file, Below is macro code which is used for inserting blank row.

Sub InsertBRow()
    Dim iRow    As Long

    iRow = 3
    Do
        With Cells(iRow, "D")
            If IsEmpty(.Value) Then Exit Do
            If .Offset(-1).Value <> .Value Then
                .EntireRow.Insert
                iRow = iRow + 2
            Else
                iRow = iRow + 1
            End If
        End With
    Loop
End Sub

Thanks in advance