How to set the macro for insert a row automatically after each account no ?

Sub Accounts()
Dim rng As Range, i As Long
Set rng = Cells(Rows.Count, 1).End(xlUp)
For i = rng.Row To 1 Step -1
If Cells(i + 1, 1).Value < Cells(i, 1).Value Then
Cells(i + 1, 1).EntireRow.Insert
End If
Next

End Sub

--
Regards,
Tom Ogilvy



"Janmy" wrote in message
...
How to set the macro for insert a row automatically after each account no
?

Thank you very much!