Adding Blank Rows

Comparing the first words of each cell, you can try this:

        Dim i As Long
        
        With W8        'ActiveWorkbook.Worksheets("Standings")
            For i = .Cells(Rows.Count, 1).End(xlUp).Row To 5 Step -1        'with step back
                If Len(.Range("A" & i - 1)) > 0 Then
                    If Left(.Range("A" & i), InStr(1, .Range("A" & i), " ") - 1) <> Left(.Range("A" & i - 1), InStr(1, .Range("A" & i - 1), " ") - 1) Then
                        .Range("A" & i).EntireRow.Insert
                    End If
                End If
            Next i
        End With

Perfect!!!! Thank you so much. I will be studying that code to see why it works. Thanks again.

You're welcome! Adding/deleting rows can be easier with step -1, counting from the bottom of the range