Sorting a large amount of data

[vid071892]

I have a large amount of data, 97000 rows and 4 columns that I need to sort every 26 rows starting with row 26. I only need 2 columns but I'll take all four if someone knows an easy way to accomplish this task. The data is position and time and the time is in seconds from which I need the 0,.5,1,1.5... all the way to 12577 seconds.

Thanks

 

[jbeaucaire]

This will do it, it is sorting on column A:

Option Explicit

Sub SortSpecial()
Dim StartRow As Long, LastRow As Long, Rws As Long, Grp As Long

StartRow = Application.InputBox("What row to begin sorting in groups of rows?", "Start", 26, Type:=1)
If StartRow = 0 Then Exit Sub
Rws = Application.InputBox("How many rows in each group?", "Group Size", 26, Type:=1)
If Rws = 0 Then Exit Sub

LastRow = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False

For Grp = StartRow To LastRow Step Rws
    Range("A" & Grp).Resize(Rws, 4).Sort Key1:=Range("A" & Grp), Order1:=xlAscending, Header:=xlNo
Next Grp

Application.ScreenUpdating = True
End Sub