Aanpassen code

[Valentin]

Onderstaande code sorteert goed maar de startcel en de eindcel van geselecteerde rij is niet altijd dezelfde, soms zijn het 4 rijen maar het kunnen evenwel ook 50 rijen zijn.
Kan iemand deze code aanpassen?

    Range(Selection, Selection.End(xlDown)).Select
    Selection.Offset(, -6).Select
    Selection.Resize(, 250).Select
    ActiveWorkbook.Worksheets("houtstaat FSC").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("houtstaat FSC").Sort.SortFields.Add Key:=ActiveCell. _
        Offset(0, 13).Range("A1:A4"), SortOn:=xlSortOnValues, Order:=xlDescending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("houtstaat").Sort
        .SetRange ActiveCell.Range("A1:IP4")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveCell.Offset(, 6).Range("A1").Select

 

[sylvester-ponte]

hallo Valentin

vervang:

.SetRange ActiveCell.Range("A1:IP4")

door:

.SetRange Selection

groet sylvester

 

[Valentin]

Aanpassen code (Opgelost)

Dank voor het vlugge antwoord