FILTER SORT DARI KECIL KE BESAR DAN SEBALIKNYA - KODE VBA

Sub kecil_besar()
[B3:B11].Copy Sheet1.[C3]
ActiveSheet.Range("C2:C11").Sort _
Key1:=Range("C2"), Order1:=xlAscending, Header:=xlYes
End Sub


Sub besar_kecil()
[B3:B11].Copy Sheet1.[D3]
ActiveSheet.Range("D2:D11").Sort _
Key1:=Range("D2"), Order1:=xlDescending, Header:=xlYes
End Sub