[Miltos100]

Τάσο ευχαριστώ και πάλι για το ενδιαφέρον! Τελικά βρήκα λύση κατασκευάζοντας μια μακροεντολή ως εξής:

Sub sortData()
Dim r As Range, cell As Range, r1 As Range
Set r = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
For Each cell In r
Set r1 = cell.Resize(1, 6)
r1.Sort Key1:=r1, _
Order1:=xlAscending, _
Orientation:=xlSortRows
Next
End Sub

Δουλεύει για ν γραμμές και μ στήλες.