en zo dan?
Sub sorteer_alles()
'sorteer eerst per regel oplopend
Do Until Range("A3").Offset(x) = ""
regel = Range("A3").Offset(x).Resize(1, 6).Address
With Range(regel)
.Sort Key1:=Range("A3").Offset(x), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, DataOption1:=xlSortNormal
End With
x = x + 1
Loop
'sorteer nu alles oplopend op kolom A
alles = Range("A3").CurrentRegion.Address
ActiveWorkbook.Worksheets("Lotto controle").Sort.SortFields.Add Key:=Range("A3"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Lotto controle").Sort.SortFields.Add Key:=Range("B3"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Lotto controle").Sort.SortFields.Add Key:=Range("C3"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Lotto controle").Sort.SortFields.Add Key:=Range("D3"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Lotto controle").Sort.SortFields.Add Key:=Range("E3"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Lotto controle").Sort.SortFields.Add Key:=Range("F3"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Lotto controle").Sort
.SetRange Range(alles)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub