将变量用作自动过滤器（VBA）的列

Question

I'd like to use a variable as a column for autofilter in vba, I think I'm not getting the sintax right, cause it`s not working:

With ActiveSheet
.AutoFilterMode = False
With .Range("A1:" & LastCol + 1 & "1")
.AutoFilter
.AutoFilter field:=5, Criteria1:="Approved"
.AutoFilter field:=6, Criteria1:="Open"
.AutoFilter field:=LastCol + 1, Criteria1:="1"
End With
End With

Answer 1

If there are no blank columns, you can use the CurrentRegion instead (similar to a Ctrl + A in A1 )

ActiveSheet.AutoFilterMode = False
With Cells.CurrentRegion
    .AutoFilter 5, "Approved"
    .AutoFilter 6, "Open"
    .AutoFilter .Columns.Count, "1"
End With