Sub Macro2()
Range("A1:J" & Range("J65536").End(xlUp).Row).Select
Selection.Sort Key1:=Range("J1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For n = Range("J65536").End(xlUp).Row To 1 Step -1
If Range("J" & n) <> "" Then
Rows(n + 1).EntireRow.Insert
End If
Next n
End Sub