Option Explicit

Sub a()

Dim i As Long 'Not Integer because it could grow 32768

Sheets("Sheet1").Select
i = 2
Do While Not IsEmpty(Cells(i, 1))
If Cells(i - 1, 1).Value < Cells(i, 1).Value Then
Range("A1").Offset(i - 1).EntireRow.Insert
i = i + 1
End If
i = i + 1
Loop

End Sub

HTH,
Bernd