Range en Sort

[harolda1980]

Ik heb een blad gemaakt met diverse gegevens. Na elk type komt er een lege regel.
Met de eerste twee regels kan ik dus een selectie maken van het blok gegevens.

Nu moet dit blok gesorteerd worden. Hoe krijg ik die wijzigende range toegewezen aan de <A3:A500>

Heeft iemand een idee?

'Bloktekst selectie
Set tbl = Cells(3, 1).CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1,tbl.Columns.Count).Select

'' Sorteer functie
    ActiveWorkbook.Worksheets("Blad1").sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Blad1").sort.SortFields.Add Key:=Range("A3:A500") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Blad1").sort
        .SetRange Range("A3:A500")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

 

[Hoornvan]

harolda1980,

Kun je hier wat mee?

Sub Bereik()
 R = InputBox(" Voer een bereik in")
 With ActiveWorkbook.Worksheets("Blad1").Sort
   .SetRange range(R)
   .Header = xlGuess
   .MatchCase = False
   .Orientation = xlTopToBottom
   .SortMethod = xlPinYin
   .Apply
 End With
End Sub

 

[Warme bakkertje]

Sub tst()
For Each ar In Sheets("Blad1").Columns(1).SpecialCells(2).Areas
    ar.Sort ar.Cells(1, 1), xlAscending
Next
End Sub