Macro to Insert blank row after specified data in a cell

[ClaraHam]

Currently I have a spreadsheet that was working but isn't anymore. I want the macro to insert a blank row after every instance of a word that starts with "G". Currently, nothing happens. Here is the part of the code:

<tbody>
</tbody>

Dim LR As Long, Rw As Long
    Application.ScreenUpdating = False
    LR = Range("g" & Rows.Count).End(xlUp).Row
    
    For Rw = LR To 2 Step -1
        If Cells(Rw, "G") <> Cells(Rw - 1, "G") Then
            Rows(Rw).Insert xlShiftDown
            
        End If
    Next Rw
    Application.ScreenUpdating = True
    End With

Thank you,
Clara

 

[Fluff]

That code has nothing to with the first letter of a word.
It's simply inserting a new row when the value in Col G changes

 

[ClaraHam]

Ok well that makes sense, then - but it still isn't working.

Thanks - I will try and work with it. I need a row inserted after every value in column A that is "GL".

 

[Fluff]

Try

Sub InsertRw()
   Dim i As Long
   For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
      If Left(Range("A" & i).Value, 1) = "G" Then Rows(i + 1).Insert
   Next i
End Sub