[vba]

Public Sub ProcessData()
Dim i As Long
Dim LastRow As Long
Dim rng As Range
Dim cell As Range

With ActiveSheet

LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
Set rng = .Range(.Range("A1"), .Range("A1").End(xlDown))
Do While rng.Cells(rng.Rows.Count, 1).Row < LastRow

Set cell = rng.Cells(1, 1)
rng.Sort key1:=cell, order1:=xlAscending, Header:=xlNo
If rng.Cells(rng.Rows.Count, 1).Row < LastRow Then

Set rng = rng.Offset(rng.Rows.Count + 2).Cells(1, 1)
Set rng = .Range(rng, rng.End(xlDown))
End If
Loop
End With

End Sub
[/vba]