Na sorteren automatisch naar onderste lege rij

[MickeyKP]

OPGELOST; Na sorteren automatisch naar onderste lege rij

Ik heb een excel-sheet al zover dat deze na het gebruik van een macro automatisch sorteert op kolom C. Het bereik van deze macro is A:4 tot L:500

Nu wil ik dat na het sorteren automatisch de cel wordt geselecteerd in kolom A op de eerstvolgende lege cel.

Dit is de code die ik al heb is erg eenvoudig (misschien te omslachtig volgens de experts hier );

Sub SorterenLaad()
'
' SorterenLaad Macro
' De macro is opgenomen op 18-1-2008 door Markle.
'

'
    Range("A4:L501").Select
    Range("L501").Activate
    Selection.Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.ScrollRow = 484
    ActiveWindow.ScrollRow = 480
    ActiveWindow.ScrollRow = 472
    ActiveWindow.ScrollRow = 462
    ActiveWindow.ScrollRow = 447
    ActiveWindow.ScrollRow = 432
    ActiveWindow.ScrollRow = 414
    ActiveWindow.ScrollRow = 393
    ActiveWindow.ScrollRow = 370
    ActiveWindow.ScrollRow = 347
    ActiveWindow.ScrollRow = 322
    ActiveWindow.ScrollRow = 307
    ActiveWindow.ScrollRow = 292
    ActiveWindow.ScrollRow = 279
    ActiveWindow.ScrollRow = 268
    ActiveWindow.ScrollRow = 247
    ActiveWindow.ScrollRow = 239
    ActiveWindow.ScrollRow = 229
    ActiveWindow.ScrollRow = 221
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 204
    ActiveWindow.ScrollRow = 196
    ActiveWindow.ScrollRow = 187
    ActiveWindow.ScrollRow = 179
    ActiveWindow.ScrollRow = 172
    ActiveWindow.ScrollRow = 162
    ActiveWindow.ScrollRow = 153
    ActiveWindow.ScrollRow = 143
    ActiveWindow.ScrollRow = 135
    ActiveWindow.ScrollRow = 128
    ActiveWindow.ScrollRow = 122
    ActiveWindow.ScrollRow = 118
    ActiveWindow.ScrollRow = 116
    ActiveWindow.ScrollRow = 112
    ActiveWindow.ScrollRow = 111
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 107
    ActiveWindow.ScrollRow = 105
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 82
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 73
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 57
    ActiveWindow.ScrollRow = 53
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    Range("A2").Select
End Sub

Kan iemand mij wellicht de helpende hand bieden om dit zo te krijgen dat ik naar de onderste lege cel kom aan het eind van de macro??

 

[brandernl]

Als je dat hele scrollverhaal vervangt door

Range("a2").End(xlDown).offset(1,0).select

ben je er ook

 

[MickeyKP]

Mhz, zo je maar dat ik geen whizzkid ben

Dit is idd al een stuk korter!! Dank daarvoor...!!!

 

[Wigi]

Sub SorterenLaad()

    Range("A4:L500").Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
        
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    
End Sub

Wigi

 

[MickeyKP]

Sub SorterenLaad()

    Range("A4:L500").Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
        
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    
End Sub

Wigi

Bedankt!! Werkt super!!

 

[Wigi]

Zet dan de vraag maar op opgelost aub.