Sorting A Filtered Range

[Ark68]

I have a worksheet with a database of 18 columns starting at A12.
The number of rows is variable based on an applied filter.

How would I code a sort of column P then B of just the filtered rows?

 

[John Davis]

I have a worksheet with a database of 18 columns starting at A12.
The number of rows is variable based on an applied filter.

How would I code a sort of column P then B of just the filtered rows?

Does this work?

Sub Ark68()
Dim lr As Long

lr = Cells(Rows.Count, 1).End(3).Row

With Range("A12:R" & lr)

    .AutoFilter Field:=1, Criteria1:=' "Whatever your criteria is"
    .SpecialCells(xlCellTypeVisible)
    .Sort Key1:=Range("R12"), Order1:=xlAscending, Key2:=Range("B12" _
        ), Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False _
        , Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
        xlSortNormal
    .AutoFilter
    
End With


End Sub