Guru do Excel e Power BI

Bom dia meus caros colegas!!
Criei uma macro para classificar datas da menor para a maior, e vi que ela criou esse código, e funciona bem, porem ela se destina a uma aba especifica, como faço para que esse código funciona na aba que eu colar o botão?

Não quero mudar de forma manual para cada aba, tenho varias abas, Tem como simplificar esse código, as macros deixam ele muito extenso.

Desde já muito obrigado!!

Sub Filrar_Mais_Antigo()
'
' Filrar_Mais_Antigo Macro
ActiveWorkbook.Worksheets("Mov_saidas").ListObjects("Tab_apagar").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Mov_saidas").ListObjects("Tab_apagar").Sort. _
SortFields.Add2 Key:=Range("Tab_apagar[[#All],[Vencimento]]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Mov_saidas").ListObjects("Tab_apagar").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub