Hey there,

I am new to VBA, zero experience, but lots of enthusiasm. So I have used well-known macro for auto filtering in my programme co-ordinator spreadsheets. There are lots of filters and people who use this database have no idea what filter is. So to make it automatic and smooth is the main objective. I am using Excel 2016.

We have 9 sheets in total,6 filters info from 4-5, 4-5 from the 3, 3 from 2 respectively.
So 6(Waitlist) is autofiltered in W2:W500, 5 (Induction) mirrors 4(Programme), and 4 is autofiltered in W2:W500, V2:V500, 3(Assessment) autofiltered in V2:V500. Again I just need automatic/quick and secured autofilter. Is it possible to amend the one below, because it works perfectly.
Private Sub Worksheet_Calculate()
     
    If Me.FilterMode = True Then
        With Application
            .EnableEvents = False
            .ScreenUpdating = False
        End With
         
        With ActiveWorkbook
            .CustomViews.Add ViewName:="Mine", RowColSettings:=True
            Me.AutoFilterMode = False
            .CustomViews("Mine").Show
            .CustomViews("Mine").Delete
        End With
         
         
        With Application
            .EnableEvents = True
            .ScreenUpdating = True
        End With
    End If
     
End Sub