Insert Row Macro based on contents of two columns

[5elpep]

Good morning group.

The below is a very useful macro to insert rows where the contents of
column B change.
How might it be modified so that it inserts rows where the contents of
columns A and B change?

Sub InsertRow_At_Change()
Dim i As Long
With Application
.Calculation = xlManual
.ScreenUpdating = False
End With
For i = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
If Cells(i - 1, 2) <> Cells(i, 2) Then _
Cells(i, 1).Resize(1, 1).EntireRow.Insert
Next i
With Application
.Calculation = xlAutomatic
.ScreenUpdating = True
End With
End Sub

Many thanks

 

[RB Smissaert]

How about simply:

If Cells(i - 1, 2) <> Cells(i, 2) And Cells(i - 1, 1) <> Cells(i, 1)
Then _
Cells(i, 1).Resize(1, 1).EntireRow.Insert

RBS

 

[5elpep]

Thanks for your input RB.

Unfortunately I mis-typed my question. I meant to say how might it be
modified so that it inserts rows where the contents of
columns A OR B change?

Also I then need to change the blank row so that column C displays
"CAR", column D returns =OFFSET(D*,1,-3) and column E returns
=OFFSET(E*,1,-3).
To use a silly example:

MON 12 XKR
MON 12 FOCUS
MON 12 LAND CRUISER
TUES 13 HUMMER

Will look as below on running the code

MON 12 XKR
MON 12 FOCUS
MON 12 LAND CRUISER
CAR
TUES 13
TUES 13 HUMMER

and so on

 

[RB Smissaert]

Then change the And to an Or and put some extra lines of code in to get your
text "CAR" and the offsets.

RBS

 

[jav]

Is it possible to modified this macro so the new row, column C, contains
the sum of that group's column C values?

Thank you much!