Macro to automatically insert rows between changes in data

A sample workbook would make it easy for us to see exactly what that data really looks like. It appears it is text strings, all in one cell per row?

So, this macro will insert blank rows bu checking column A for changes:

Option Explicit

Sub InsertBlanks()
Dim LR As Long, Rw As Long

    LR = Range("A" & Rows.Count).End(xlUp).Row
    
    For Rw = LR To 2 Step -1
        If Range("A" & Rw) <> Range("A" & Rw - 1) Then
            Rows(Rw).Insert xlShiftDown
            Rw = Rw - 1
        End If
    Next Rw

End Sub