VBA Variable Range Sort

[GedSalter]

Hi

I have a sheet I wish to sort depending on data in two columns. The table is a variable rows and I wish to sort with "Members" then "Social Members" I have got it to work on a previous version but took a long time to run. I am now trying the variable approach to see if its quicker.

Private Sub CommandButton2_Click()

lr = Cells(Rows, Count, 1).End(xlUp).Row


 ActiveSheet.Range("$G$1").Value = "Social Members List"
 
ActiveWorkbook.Worksheets("Portal").ListObjects("Table5").Range.AutoFilter Field:=1 & lr
ActiveWorkbook.Worksheets("Portal").ListObjects("Table5").Range.AutoFilter Field:=3 & lr
ActiveWorkbook.Worksheets("Portal").ListObjects("Table5").Range.AutoFilter Field:=4 & lr
ActiveWorkbook.Worksheets("Portal").ListObjects("Table5").Range.AutoFilter Field:=5 & lr
ActiveWorkbook.Worksheets("Portal").ListObjects("Table5").Range.AutoFilter Field:=6 & lr
ActiveWorkbook.Worksheets("Portal").ListObjects("Table5").Range.AutoFilter Field:=7 & lr
ActiveWorkbook.Worksheets("Portal").ListObjects("Table5").Range.AutoFilter Field:=8 & lr
ActiveWorkbook.Worksheets("Portal").ListObjects("Table5").Range.AutoFilter Field:=9 & lr
ActiveWorkbook.Worksheets("Portal").ListObjects("Table5").Range.AutoFilter Field:=10 & lr

    ActiveWorkbook.Worksheets("Portal").ListObjects("Table5").Range.AutoFilter Field:=11, Criteria1:="Member" & lr

 ActiveWorkbook.Worksheets("Portal").ListObjects("Table5").Range.AutoFilter Field:=2, Criteria1:="Social" & lr

        
        Sheets("Portal").Select
        
    Range("A7").Select

        
Range("A7").Activate

End Sub

 

[Fluff]

I'm confused, you talk about sorting on two columns, but there is noting your code that sorts the table.
It looks more as though you are trying to clear all filters & then filter on 2 columns.
Can you please explain?