Using multiple VBA codes within a single worksheet

Question

I have four tables in a worksheet that I am attempting to auto refresh sorting. I used the code below to make this work for one table in the worksheet. Now I want to do the same thing for the other three tables. How do I do this?

Private Sub Worksheet_Change(ByVal Target As Range)

Dim SalesTable As ListObject

Dim SortCol As Range

Set SalesTable = ActiveSheet.ListObjects("Quarter1")

Set SortCol = Range("Quarter1[Subsidiary]")

If Not Intersect(Target, SortCol) Is Nothing Then

With SalesTable.Sort 

    .SortFields.Clear 

    .SortFields.Add Key:=SortCol, Order:=xlAscending 

    .Header = xlYes 

    .Apply 

End With 

End If

End Sub

Answer 1

Could you share a test workbook?

You may add all the code into one like this one.

=======================

Private Sub Worksheet_Change(ByVal Target As Range)

Dim SalesTable As ListObject

Dim SortCol As Range

Set SalesTable = ActiveSheet.ListObjects("Quarter1")

Set SortCol = Range("Quarter1[Subsidiary]")

If Not Intersect(Target, SortCol) Is Nothing Then

With SalesTable.Sort

.SortFields.Clear

.SortFields.Add Key:=SortCol, Order:=xlAscending

.Header = xlYes

.Apply

End With

End If

Set SalesTable2 = ActiveSheet.ListObjects("Quarter2")

Set SortCol2 = Range("Quarter2[Subsidiary]")

If Not Intersect(Target, SortCol2) Is Nothing Then

With SalesTable.Sort

.SortFields.Clear

.SortFields.Add Key:=SortCol, Order:=xlAscending

.Header = xlYes

.Apply

End With

End If

Set SalesTable3 = ActiveSheet.ListObjects("Quarter3")

Set SortCol3 = Range("Quarter3[Subsidiary]")

If Not Intersect(Target, SortCol3) Is Nothing Then

With SalesTable.Sort

.SortFields.Clear

.SortFields.Add Key:=SortCol, Order:=xlAscending

.Header = xlYes

.Apply

End With

End If

Set SalesTable4= ActiveSheet.ListObjects("Quarter4")

Set SortCol4 = Range("Quarter4[Subsidiary]")

If Not Intersect(Target, SortCol4) Is Nothing Then

With SalesTable.Sort

.SortFields.Clear

.SortFields.Add Key:=SortCol, Order:=xlAscending

.Header = xlYes

.Apply

End With

End If

End Sub