insert row at truck plate number

Something like this?

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