Sort virtual range

[Vincent88]

Hi Guy,
I want to sort a virtual list. Can someone help me out.
The virtual object list refers to dynamic range in Column L. I want to sort the object list only (not actual list in column L) from A to Z and assign a name to it for dropdown list purpose. What should be corrected ?

Sub sortedVirtualListAgent1()

Dim rngSort As Range
Dim lr As Long
Dim Agtarray As Object
Dim rngL As Range

'Creating a array list
Set Agtarray = CreateObject("System.Collections.ArrayList")

'Physical Source in Column L
lr = Sheets("Data").Cells(Rows.Count, "L").End(xlUp).Row
Set rngL = Sheets("Data").Range("L2:L" & lr)

  'Set reference to the Table and column to be sorted
      Set Agtarray = rngL
    

  'Use Range.Sort method to apply sort
    
    Agtarray.Sort _
    Key1:=rngSort, _
    Order1:=xlAscending, _
    Header:=xlYes
        
    sorted_array = Agtarray.toarray
    
    End Sub

 

[Peter_SSs]

Agtarray.toarray creates a zero-based array so you need

Sheets("Data").Range("N1").Resize(UBound(Sorted_array) + 1, 1).Value = Application.Transpose(Sorted_array)

 

[Vincent88]

Agtarray.toarray creates a zero-based array so you need

Sheets("Data").Range("N1").Resize(UBound(Sorted_array) + 1, 1).Value = Application.Transpose(Sorted_array)

Thanks Peter_SSs.
I create another thread to ask for help as part 2 of this code, please review if you have time. Thanks in advance.