Is there a way to create a Macro to insert a blank row based on the change in cell value in multiple columns?

[kokoanutt]

I have already been able to create a Macro to insert a blank row based on the change in value for column C, but I also need it to look at column G. In this example, I also need a blank row in between the "ORION" and the "OCEAN" data:

Please help. Thank You!

 

[Alex Blakenburg]

Is that instead of the current line insertion when column C or G change ?
Please show us an example of how you want the output to look.

 

[kokoanutt]

Is that instead of the current line insertion when column C or G change ?
Please show us an example of how you want the output to look.

This is in addition to the blank lines that I have added when columns C and G change.

Here is an example. I only want the shaded rows to be between the two different dates containing the same value in columns C and G.

 

[Alex Blakenburg]

See if this works for you:

Sub BLANKS_SUMMARY3()

    Dim ws As Worksheet
    Dim lr As Long
    Dim i As Long
    
    Set ws = Worksheets("Logged Units Report")              'the sheet with the data
    lr = ws.Range("C" & Rows.Count).End(xlUp).Row           'last row with data in Column F
    For i = lr - 1 To 2 Step -1
        If ws.Range("C" & i).Value <> ws.Range("C" & i + 1).Value _
            Or ws.Range("G" & i).Value <> ws.Range("G" & i + 1).Value Then
                ws.Range("C" & i + 1).EntireRow.Insert
        ElseIf ws.Range("A" & i).Value2 <> ws.Range("A" & i + 1).Value2 Then
                ws.Range("A" & i + 1).EntireRow.Insert
                ws.Range("A" & i + 1).Resize(1, 7).Interior.Color = 14277081
        End If
    Next i

End Sub

 

[kokoanutt]

Thank you so much @Alex Blakenburg