insert row at truck plate number

Sub dotch()
   Dim lRow As Long
   For lRow = Cells(Cells.Rows.Count, "H").End(xlUp).Row To 2 Step -1
      If Cells(lRow, "H") <> Cells(lRow - 1, "H") Then Rows(lRow).EntireRow.Insert
   Next lRow
End Sub