VBA: Sorting a Table?

[Kentetsu]

I don't know why I'm having such difficulty with this. I've been searching all day and have tried 20 variations of code, but nothing seems to work.

I've got this doing everything I want it to, all I need to add is a sorting function (Ascending, Column C, table has headers)

Here's what I've got so far:

With Sheets("Names")
    .Visible = True
    .Unprotect Password:="*****"
    
Set the_sheet = Worksheets("Names")
Set table_list_object = the_sheet.ListObjects("Table1")
    'Add a row to the Table
Set table_object_row = table_list_object.ListRows.Add
        last_row_with_data = the_sheet.Range("Table1").End(xlUp).Row
        Sheets("Add New User").Range("E5:E6").Copy
        .Cells(Rows.Count, "B").End(xlUp)(1).PasteSpecial Paste:=xlPasteValues, _
        Transpose:=True
        
'        Here I Need to Sort Ascending on Column C
        
        .Protect Password:="*****"
        .Visible = xlSheetVeryHidden
End With

Any assistance is appreciated...

 

[synergy16]

this is the sort function I use. I just call on it and then pass it the array. if this isn't what you need just record a macro of you sorting it in excel.

Private Function sortA(atbs As Variant)
Dim cnt As Integer, i As Integer
Dim tempA As Variant
tempA = 0
i = 0
For cnt = 0 To UBound(atbs)
     i = cnt
     While i < UBound(atbs)
          If atbs(cnt) <= atbs(i) Then
               'do nothing
          Else: tempA = atbs(cnt)
               atbs(cnt) = atbs(i)
               atbs(i) = tempA
          End If
               i = i + 1
     Wend
Next
End Function

 

[Kentetsu]

I came up with the following, but get an error halfway through (bolded section):

With Sheets("Names")
        .ListObjects("Table1").Sort.SortFields.Clear
        .ListObjects("Table1").Sort.SortFields.Add _
        Key:=Range("Table1[[#All],[Last]]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
        .ListObjects("Table1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

 

[Kentetsu]

Got it working with this:

With target_table.Sort
        .SortFields.Clear
        .SortFields.Add Key:=sort_column _
        , SortOn:=xlSortOnValues, Order:=xlAscending _
        , DataOption:=xlSortNormal
        .Apply
    End With

 

[synergy16]

only reason I suggested the function I posted is, you write it once and when ever you need something sorted from any other sub you just call the sort function and pass it what ever you need sorted. then you don't need to re-write sort code in every sub you have. just makes your program a bit more neat and organized