Try this macro:
Option Explicit
Sub SeperateData()
Dim x As Long
Dim LastRow As Long
Dim Index As Long
With Sheets("Sheet1") 'Change to the actual sheet name.
LastRow = .Range("H65536").End(xlUp).Row
Index = Range("H" & LastRow).Value
For x = LastRow To 2 Step -1 'Change 2 to the row you want to start at.
If .Range("H" & x).Value = Index Then
'Skip
Else
Index = Range("H" & x).Value
Range("A" & x + 1).Value = Index + 1
Range("A" & x + 1).EntireRow.Insert
End If
Next x
End With
End Sub
Open your Excel file.
Press Alt + F11 to open the VBE.
Insert | Module.
Paste the code there.
Close the VBE.
From Excel Tools | Macro | Macros.
Select SeperateData and press Run.
If it is not working properly, please post an example of the Excel file, since it is difficult to work with a PDF file.