Filters And Criterias

I'm trying to modify this code in order to do the following.

I want to choose first column and then the criteria for filter, then i want to choose a second column and criteria to filter the remain values from the first filter.

Here is my


Sub Filter()
Dim Myrange As Range
Dim CriteriaVal As Variant
Dim CriteriaVal2 As Variant

Dim KillColumn As Integer
Dim KillColumn2 As Integer
Dim ActiveColumn As String
Dim AC
Dim LastRow As Long
Dim rng As Range