Taulukko järjestykseen

moduuliin...

Sub LajitteleSarakkeittain(Taulukko As String, Alue As String)
Dim Sarakkeet As Integer
Dim Rivit As Integer
Dim Solujenlkm As Integer
Dim s As Integer
Dim r As Integer
Dim laskuri As Integer
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Huuhaa").Delete
Worksheets.Add().Name = "Huuhaa"
Worksheets("Huuhaa").Activate
range("A1") = "luvut"
For Each solu In range(Taulukko & "!" & Alue)
range("A65536").End(xlUp).Offset(1, 0) = solu.Value
Next solu
range("A1", range("A1").End(xlDown)).Sort Key1:=range("A2"), _
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheets(Taulukko).Activate
range(Alue).Cells(1, 1).Activate
Sarakkeet = range(Alue).Columns.Count
Rivit = range(Alue).Rows.Count
Solujenlkm = range(Alue).Cells.Count
laskuri = 2
For s = 1 To Sarakkeet
For r = 1 To Rivit
range(ActiveCell.Address).Offset(r - 1, s - 1).Value = _
range("Huuhaa!A" & laskuri).Value
laskuri = laskuri 1
Next r
Next s
Sheets("Huuhaa").Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub
Sub koe()
LajitteleSarakkeittain "Taul1", "A1:H10"
End Sub