【Excel-VBA】フィルターの再適用

下記をプログラムをボタンに割り当ててボタン押すだけ

Sub RefreshFilters()
    Dim ws As Worksheet
    Set ws = ActiveSheet

    ' フィルターが有効な場合に再適用
    If ws.AutoFilterMode Then
        ws.AutoFilter.ApplyFilter
    End If
End Sub